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PASCAL COURSE AGENDA 



MONDAY 



•J . nxiO OVERVIEW 

~ 990 ARCHITECTURE OVERVIEW 
S/U SYSTEM OVERVIEW 

- SYSTEM COMMAND INTERPRETER (SCI) 

2. PASCAL OVERVIEW 

3. PASCAL DECLARATIONS 

- VARIABLE DECLARATIONS 

- TYPE DECLARATIONS 

- CONSTANT DECLARATIONS 

LUNCH 

4. SIMPLE PROGRAM CONTROL STRUCTURES 

- IF-THEN STATEMENT 

- IF-THEN-ELSE STATEMENT 
-- COMPOUND STATEMENT 

- WHILE LOOP 

- FOR LOOP 

5. SIMPLE I/O 

- TYPE CHAR 

" READ STATEMENT (UNFORMATTED) 

- WRITE STATEMENT (UNFORMATTED) 

- WRITELN STATEMENT 

6. SIMPLE PROCEDURES AND FUNCTIONS 

- DEF T N I T I ON 

- PARAMETERS 

7. ASSIGNMENT 1 ( HOMEWORK ) 

- COMPILER OPTIONS AND RUNTIME CHECK 

- READING A MEMORY DUMP 



TUESDAY 



DXIO SYSTEM USAGE 

- BOOTItNG nXlO 

- SOFTWARE MAINTENANCE SCI COMMAND:; 

- FILE MANAGEMENT STRUCTURE 

- SYNONYMS 

PASCAL DEVELOPMENT UNDER DXLO 

- PASCAL COMPILER 
-- LINK .EDITOR 

- INSTALLATION AND EXECUTION 

- TEXT EDITOR 



LUNCH 



LABORATORY 

- ASSIGNMENT #1 



WEDNESDAY 

1. PASCAL DATA TYPES 
■- BOOLEAN 

- ARRAYS 
~ RECORDS 

2. PROGRAM CONTROL STATEMENTS 
_ REPEAT-UNTIL LOOP 

- CASE STATEMENT 

- WITH STATEMENT 

LUNCH 

3. FORMATTED I/O 

4. NESTED PROCEDURES 

- DEFINITION 

- PARAMETER PASSING 

- SCOPE OF VARIABLES 

-- ROUTINE ACCESSIBILITY 

- TOP DOWN DESIGN 

5. STACK MEMORY ALLOCATION 

6. ASSIGNMENT #2 ( HOMEWORK ) 
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THURSDAY 

1 . LABORATORY 

- ASSIGNMENT #2 

LUNCH 



2= POINTERS 

3. SETS AND TYPE TRANSFER 

4. SEQUENTIAL AND RELATIVE RECORD FILE:." 

5. ASSIGNMENT #3 ( HOMEWORK ) 



FRIDAY 



.1. . LABORATORY 

- ASSIGNMENT #3 

LUNCH 

2, DECLARING EXTERNAL PROCEDURES 

3. DIRECT DXIO INTERFACE 

4. REENTRANT PASCAL 

5, BATCH SCI FOR PASCAL 
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MODOl 



DS990 SYSTEM OVERVIEW 



OBJECTIVE 



TO AQUA I NT THE STUDENT WITH THE OVERALL CHARACTERISTICS 
OF THE DXIO DEVELOPMENT SYSTEM. 



AGENDA 



1. HARDWARE CHARACTERISTICS OF THE DS990 

- MEMORY ORGANIZATION 

- CPU CHARACTERISTICS 

- REGISTER ORGANIZATION 

- I/O PORTS 

2. PERIPHERALS 

- CRU PERIPHERALS 

- TILINE PERIPHERALS 

3. DXIO 

- FEATURES 

- MEMORY UTILIZATION 

- MULT I -TASK I NO PRIORITIES 

- SYSTEM COMMAND INTERPRETER ( SCI ) 

- PROGRAM DEVELOPMENT UTILITIES 

- HIGH LEVEL LANGUAGES 
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990 SYSTEM OVERVIEW 



990/10 ARCHITECTURE 
MEMORY 



- 16 BIT MEMORY WORDS 

- FULL BYTE ADDRESSING CAPABILITY 

- TWO^S COMPLEMENT REPRESENTATION OF INTEGERS 







64 K BYTE ADDRESSES 

32 K WORD ADDRESSES 
15 



MEMORY ADDRESS ! 



MEMORY 



BYTE O 
BYTE -2 



/ 
/ 



BYTE 1 
BYTE '3 



/ 
/ 



/ 
/ 



MSB 
12 



LSB 
6 7 



MSB 

12 3 
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BYTE 



BYTE 



BYTE == 8 BITS 

. 
- X2 



X2 
X2 

X2 

i 

X2 
i 

X2 
i 

X2 
X2 



or si9ri bit 



LSB 
10 11 12 13 14 15 



MINIMUM MEMORY 
MAXIMUM MEMORY 



32K WORDS 

1 MILLION WORDS 



':> 






CPU - CENTRAL PROCESSING UNIT 



2 BOARDS OF TTL LOGIC 
72 INSTRUCTIONS 



INSTRUCTION TYPE # 

ARITHMETIC 13 

BRANCH IS 

COMPARE 5 

CONTROL /CRU 10 

LOAD /MOVE S 

LOGICAL 10 

SHIFT 4 

XOP 1 

MAPPING 3 

TOTAL 72 



REGISTERS 



PROGRAM COUNTER 
STATUS REGISTER 
WORKSPACE 



** NOTE: THERE ARE NO H/W ARITHMETIC REGISTER:^ 



HARDWARE REGISTERS 



PROGRAM COUNTER 



WORD ADDRESSES 

CONTROL PROGRAM EXECUTION SEQUENCE 

TELLS PROCESSOR WHERE TO FETCH NEXT INSTRUCTION 

AUTOMATICALLY INCREMENTS BY 2 UNLESS MODIFIED 

BY BRANCH-TYPE INSTRUCTION 



STATUS REGISTER 



O CONSTANTLY INDICATES PRESENT STATUS OF CPU 
EX. COMPARE RESULTS 

ARITHMETIC RESULTS 

INTERRUPT MASK 

PARITY, XOP, MAPFILE, ETC. 



WORKSPACE POINTER 



WORD ADDRESSES 

INDICATES BEGINNING ADDRESS OF REGISTER FILE 
REGISTER FILE IS ANY 16 SEQUENTIAL WORDS ANYWHERE 
IN MEMORY 



WORKSPACE REGISTERS 



WORKSPACE POINTER 
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MEMORY 




MEMORY 
ADDRESS 


R 


EGISTER 


WP + 00 





WP + 02 


1 


WP + 04 


2 


WP + 06 


3 


WP + 08 


4 


WP + OA 


5 


WP + OC 


6 


WP + OE 


7 


WP + 10 


8 


WP ♦ 12 


9 


WP + 1« 


10 


WP + 16 


11 


WP + 18 


12 


WP + 1A 


13 


WP + 1C 


14 


WP + IE 


IS 



REGISTER USE 



DATA 

OR 

ADDRESSES 



-OPTIONAL SHIFT COUNT 



INDEX 
CAPABILITY 



- BL RETURN ADDRESS 

- CRU BASE ADDRESS 

- SAVED WP 

- SAVED PC 

- SAVED ST 



INPUT/OUTPUT 



COMMUNICATIONS REGISTER UNIT (CRU) 



BIT SERIAL I/O BUS 

SUPPORTS SLOWER 990 PERIPHERAL DEVICES 

- CRT^S 

- LINE PRINTERS 

- FLOPPY DISKS 

- DATA TERMINALS 

ETC. 



TILINE 



16 BIT PARALLEL I/O BUS 

ASYNCHRONOUS COMMUNICATION FOR TRANSFER? 

SUPPORTS HIGH SPEED PERIPHERAL DEVICES 

- "HARD-- DISKS 

- MAGNETIC TAPE 

- MEMORY 

ETC. 
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CRU DEVICES 

CARD READER - 804 

400 CARDS/MINUTE 

READS FRAYED AND DAMAGED CARDS 

LINE PRINTER - 810 
IMPACT 

96 ASCII CHARACTER SET 

132 COLUMN PAPER - SIX PART MULTICOPY 
150 CHAR/ SEC 
BIDIRECTIONAL PRINTING 

LINE PRINTER - 2230 

DRUM LINE PRINTER 

300 LINES/MINUTE 

64 ASCII CHARACTER SET 

132 COLUMN PAPER 

LINE PRINTER - 2260 

DRUM LINE PRINTER 

600 LINES/MINUTE 

64 ASCII CHARACTER SET 

132 COLUMN PAPER 

773 ASR/KSR 

95 PRINTABLE CHARACTERS 

30 CHAR /SECOND 

KEYBOARD, PRINTER, 2 CASSETTES 

CASSETTE SPEED 120 CPS TO XMISS LINE 



CRU DEVICES (CONTINUED) 

911 CRT 

96 CHARACTER ASCII 

12 PROGRAMMABLE FUNCTION KEYS 

960 CHAR (12 X 80) OR 1920 CHAR (24 X SO) FULL SCREEN 

FULL CURSOR CONTROL, INCLUDING PROGRAMMABLE CURSOR INTENSITY 

9 ISA CRT 

O 57 CHARACTERS + 32 CONTROL (14 FOR USER DEFINITION) 
960 CHAR FULL SCREEN (12 X 80) 
LOCATED UP TO 2000' FROM CPU 

FLOPPY DISK 

IBM COMPATIBLE FLEXIBLE DISKETTE (REMOVABLE) 

4 DRIVES PER CONTROLLER 

256K BYTES PER DISKETTE 

TRANSFER RATE 250K BITS PER SECOND (156 WORDS) 

ACCESS TIME 260 MS AVERAGE 

PROCESSOR CONTROLLED I/O 

990 COMMUNICATIONS INTERFACE 

RS - 232C INTERFACE 

SELECTABLE BAUD RATES 

SELECTABLE CHARACTER SIZE, 5-9 BIDS WITH PROGRAMMABLE 
PARITY 

16 I/O DATA MODULE - TTL 

16 INPUT LINES -- SINGLE LINE ADDRESSABLE 
16 OUTPUT LINES - SINGLE LINE ADDRESSABLE 
USER END OF MODULE IS TTL COMPATIBLE 
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CRU DEVICES (CONTINUED) 

16 I/O DATA MODULE - EI A 

16 INPUT LINES - SINGLE LINE ADDRESSABLE 
16 OUTPUT LINES - SINGLE LINE ADDRESSABLE 
USER END OF MODULE IS EIA COMPATIBLE 

PROM PROGRAMMER 

PERMANENTLY CODES PROGRAMS INTO PROM'S ON COMMAND FROM 
PROM BURNING SOFTWARE 

PROGRAMS TTL PROMS AND EROMS 

USED TO CREATE CUSTOM LOADERS, CONTROL PROGRAMS, ETC., 
FOR 990 /R CPU 



,'( 
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TILINE DEVICES 

MOVING HEAD DISK - DIABLO 31 

4 DRIVES PER CONTROLLER 

REMOVABLE CARTRIDGE 

1,1 5M WORDS PER CARTRIDGE 

TRANSFER RATE 96K WORDS PER SECOND 

ACCESS TIME 70MS AVERAGE 

AUTOMATIC TRANSFER 

MOVING HEAD DISK - DSIO 

2 DRIVES PER CONTROLLER 

DUAL PLATTER, SINGLE ACCESS 

9.4 MEGABYTES OF FORMATTED STORAGE 

TRANSFER RATE IS 312K BYTES PER SECOND 

MOVING HEAD DISK - DS25 

5 FLATTER REMOVABLE DISK PACK 

4 DRIVES PER CONTROLLER 

25 MEGABYTES PER DISK PACK 

AVERAGE TRANSFER RATE IS 403,000 BYTES PER SECOND 

MOVING HEAD DISK - DS50 

5 PLATTER REMOVABLE DISK PACK 

4 DRIVES PER CONTROLLER 

50 MEGABYTES , PER DISK PACK 

AVERAGE TRANSFER RATE IS 403,000 BYTES PER SECOND 

MAGNETIC TAPE DRIVE - MODEL 979A 

SUPPORT UP TO 4 TRANSPORTS PER CONTROLLER 

VACUUM COLUMNS, 37.5 IPS 

9-TRACK 800 - BPI NRZI VERSION OR 1600 - BPI 
PE VERSION 



/a 



DXIO OPERATING SYSTEM 



FEATURES 



MULT I -TASKING 

SUPPORTS UP TO 255 LOGICALLY CONCURRENT TASKS 

PRIORITY ROLL IN/ROLL OUT DISCIPLINE 

MULTILEVEL PRIORITY TIME SLICE DISCIPLINE 

MULT I -USER DEVELOPMENT 

SUPPORTS UP TO 40 CONCURRENT DEVELOPMENT STATIONS 

COMPLETE FILE MANAGEMENT PACKAGE 

USER DEFINED FILE DIRECTORY STRUCTURE 
FILE TYPES SUPPORTED 

- SEQUENTIAL 

- RELATIVE RECORD 

- MULT I KEY INDEX 

GENERAL PURPOSE APPLICATIONS O.S. 

PROCESS CONTROL 
DATA PROCESSING 
SCIENTIFIC APPLICATIONS 

GENERAL O.S. /USER INTERFACE <SCI) 

FLEXIBLE COMMAND LANGUAGE 
NEW COMMANDS MAY BE CREATED 
OLD COMMANDS MAY BE MODIFIED 

HIGH LEVEL LANGUAGE SUPPORT 

COBOL 

PASCAL 

FORTRAN 

BASIC 

RPG II 

DXIO REQUIRED H/W 

990/10 WITH MEMORY MAPPING 

64K WORDS OF MEMORY 

MOVING HEAD DISK<S) 

VIDEO DISPLAY TERMINAL (S) 

DISK BACKUP CAPABILITY 
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DXIO OPERATING SYSTEM (CONTINUED) 



DXIO ORGANIZATION 



MEMORY 



DXIO RESIDES IN 
MEMORY AND IS 
MEMORY RESIDENT 



LOW 



MANY USERS PROGRAMS 
(TASKS) MAY BE IN 
MEMORY AT THE 
SAME TIME 



THE USER TASKS 'SHARE' 
CPU-S TIME AND I/O 
RESOURCES (MULTI- 
TASKING) 



DXIO 



USER 
TASK 



USER 
TASK 



DXIO ALLOCATES -TIME SLICES' TO ALL OR THE 
IN THE SYSTEM ON A PRIORITY BASIS. 



'ACTIVE' (RUNNING) TASKS 



li 



DXIO 3.2 TASK SCHEDULER 



" THE TASK SCHEDULER ALLOCATES THE CPU TO THE HIGHEST 
PRIORITY TASK AWAITING EXECUTION. " 



Prioritv Structure: 




R1..R127 1 2 



-> System 

Rl - R127 -> Real-Time 

1 -> Foreground Interactive 

2 -> Foreground Compute-Bound 

3 -> Background (Batch) 



Four SYSGEN parameters determine hou» the scheduler works: 

(1) TIME SLICING - YES/NO 

If the time slicing option is selected* then CPU time 
for a given priority level will be allocated on a round 
robin basis among all the active tasks on that queue. 

If time slicing is not chosen* then the first task on a 
queue will be allocated CPU time until it terminates, is 
suspended? or an external event causes a rescheduling. 

<2) LENGTH OF TIME SLICE 

a multiple of 50 msec intervals 

(3) TASK SENTRY - YES/NO 

if chosen during the system generation, the Task Sentry 
mill louier the priority of a task by one when the task 
has had control of the CPU for a specified amount of time. 

if the Task Sentry is not enabled* then a CPU-bound task 
may lock out all tasks of a lower priority level. 

(4) SENTRY TIME 

A multiple of 50 msec intervals. 
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INTERACTING FACTORS IN SCHEDULING 



TIME 
SLICE 



YES 



NO 



TASK SENTRY 



YES 



NO 



round robin on queue 

task bumped when 
sentrv time up 



round robin on queue 

ujhen queue is exhausted 
next queue is called 



■First task on queue sets 
CPU until sentrv time 
up> then bumped 



highest task hogs CPU 
as Ions as it luants 



THE SCHEDULING MAY BE AFFECTED BY THESE EVENTS: 

» PREEMPTIVE BIDDING - A higher priority task aluavs gets 
the CPU uihen it becomes active 

* The executing task suspends 

* A time delayed task is due to be activated 

* The priority of the executing trask is lowered bv the 

Task Sentry (if task sentry is active in the system) 

•»• A task completes a time slice ( if the time slice option 
mas included in the system) 
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SYSTEM COMMAND INTERPRETER <SCI) 



PROVIDES 



USER INTERFACE TO DXlO INLCUDING: 

- LOG IN AND OUT. 

- TIME AND DATE SETUP AND INQUIRY. 

- DISK VOLUME INITIALIZATION, INSTALL, AND UNLOAD. 

- DISK DIRECTORY BACKUP, RESTORE, AND COPY. 

- CREATING AND DELETING DIRECTORIES AND FILES. 

- CHANGING FILE NAMES AND PROTECTION. 

- VIEWING AND LISTING DIRECTORIES AND FILES. 

- COPYING DIRECTORIES AND FILES. 

- LOGICAL UNIT ASSIGNMENT, POSITIONING, AND RELEASE. 

- SYSTEM I/O STATUS DISPLAY. 

- SYSTEM TASK STATUS DISPLAY. 

- PROGRAM ACTIVATION AND CONTROL. 

- BATCH COMMAND INPUT, ACTIVATION, AND STATUS. 

- STATION CONTROL (USER ID, TERMINAL STATUS, ETC.) 

- INSTALLING AND DELETING PROGRAMS. 

- ACTIVATION OF THE SYSTEM LOG. 

- PROGRAM DEBUGGING INCLUDING SUCH ITEMS AS: 

BREAKPOINTS. 

MEMORY/DISK DUMP OR DISPLAY. 

DECIMAL/HEXADECIMAL ARITHMETIC AID. 

INTERACTIVELY CONTROLLED PROGRAM TRACE. 

- TEXT EDIT CONTROL. 

- LINK EDIT ACTIVATION. 

- ASSEMBLER, COBOL, FORTRAN, PASCAL, RPG II, AND BASIC 

ACTIVATION. 

- SORT/MERGE ACTIVATION- 



TWO MODES OF OPERATION 



CONVERSATIONAL 

INTERACTIVE COMMAND ENTRY AND RESPONSE 

BATCH 

BATCH COMMAND ENTRY FROM A SEQUENTIAL DEVICE OR FILE. 
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PROGRAM DEVELOPMENT 



TEXT EDITOR 



CONTROLLED VIA SCI 

CHARACTER ORIENTED EDITING CAPABILITY 

FILES ARE AUTOMATICALLY CREATED WHEN CREATING A 
NEW PROGRAM 

ANY ASCII TEXT FILE MAY BE EDITED 



LINK EDITOR 



CONTROLLED VIA SCI 

LINKS TOGETHER SUBROUTINES AND RUNTIME 
LIBRARY OBJECT (MACHINE) PROGRAMS FOR 
INSTALLATION AND EXECUTION UNDER DXIO. 

PROVIDES FOR AUTO- INSTALLATION OF PROGRAMS 
WHEN LINKING IS COMPLETED. 

PROVIDES CAPABILITY TO CREATE AN 'OVERLAY- 
PROGRAM STRUCTURE . 

O PROVIDES CAPABILITY TO CREATE A •REENTRANT- 
PROGRAM STRUCTURE . 
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DXIO SUPPORTED HIGH LEVEL LANGUAGES 



TI990 COBOL 



BUSINESS ORIENTED DATA PROCESSING LANGUAGE 

CONFORMS TO THE ANSI COBOL SUBSET WITH SELECTED FEATURES 
FROM LEVEL 2 

INCLUDES SOME EXTENSIONS BEYOND THE LEVELS DEFINED BY ANSI 

INCLUDES A STATEMENT LEVEL DEBUG PACKAGE FOR EASE IN DEBUGGINC 
COBOL PROGRAMS 

UTILIZES A REENTRANT RUNTIME PACKAGE FOR EXECUTION 



T1990 FORTRAN 



SCIENTIFIC PROGRAMMING LANGUAGE 

ANSI STANDARD FORTRAN IV PLUS ALL RECOMMENDED ISA EXTENSION? 

OTHER EXTENT IONS INCLUDE: 

- VARIABLE NAMES OF ANY LENGTH 

- GENERAL INTEGER EXPRESSIONS AS SUBCRIPTS 

- VDT I/O HANDLING STATEMENTS 

- DIRECT CRU I/O CAPABILITY 

- MIXED MODE EXPRESSIONS 

- EXTENDED PRECISION INTEGERS 

- \6 BIT FIXED-POINT ARITHMETIC 

- IMPLICIT VARIABLE TYPING 



TI990 RPG II 



ORIENTED TOWARD BUSINESS PROGRAMMING AND REPORT GENERATION 

INCLUDES A PRE-FORMATTING FORM EDITOR 

COMPATIBLE WITH THE IBM SYSTEM/3 RPG II WHERE HARDWARE AND 
OPERATING SYSTEM CHARACTERISTICS PERMIT 

O ONE PASS COMPILER WILL EXECUTE IN ABOUT lOK WORDS OF MEMORY 

COMPILER GENERATES ALPHABETIC SUMMARY LISTINGS OF ALL VARIABLE? 

PACKAGE INCLUDES A UNIQUE DEBI.IG PACKAGE 
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TI990 PASCAL 



GENERAL. PURPOSE PROGRAMMING LANGUAGE 

BASED ON THE -PASCAL USER MANUAL AND REPORT' BY KATHLEEN 
JENSEN AND N I KLAUS WIRTH 

CAPABILITIES 

- PROVIDES SCIENTIFIC PROGRAMMING CAPABILITIES SIMILAR TO 
FORTRAN WITH SOME IMPORTANT IMPROVEMENTS < EXTENDED PRECISION 
REAL NUMBERS, GENERALIZED ARRAY INDEXING CAPABILITY, ETC ) 

- ■BLOCK STRUCTURED- SIMILAR TO ALGOL AND PL/1 

- ACCESS TO ASSEMBLY LANGUAGE SUBROUTINES FOR PRIMITIVE 
LEVEL PROGRAMMING 

- ACCESS TO ROUTINES WRITTEN IN OTHER LANGUAGES 

- PROGRAM CONTROL STRUCTURES FIT THE CLASSICAL DEFINITIONS 
FOR -STRUCTURED' PROBLEM SOLVING 



TT990 BASIC 

n GENERAL PURPOSE INTERACTIVE PROBLEM SOLVING LANGUAGE 

CONFORMS TO DARTMOUTH BASIC WITH CERTAIN EXTENSIONS 

PACKAGE INCLUDES A MULT I -TERMINAL INTERFACE MODULE TO 
COORDINATE THE INTERACTIONS OF THE EXECUTIVE, THE BASIC 
INTERPRETER, AND THE OPERATING SYSTEM 
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M0D02 
PASCAL OVERVIEW 



PASCAL IS A "BLOCK STRUCTURED LANGUAGE". IT WAS WRITTEN WITH 
THE FOLLOWING ADVANTAGES IN MIND: 

* EASE OF DEFINING ALGORITHMS 

* GOOD DATA STRUCTURING FACILITIES 

* BIT MANIPULATION CAPABILITIES 

* TO FACILITATE CONSTRUCTION OF RELIABLE AND TRANSPORTABLE CODE. 

- RESTRICTS FUNCTION SIDE EFFECTS 

- EXPLICIT TYPE CHECKING FOR VARIABLES 

- STRONG TYPE CHECKING FOR PARAMETERS 

* EASE OF MODIFICATION 

- READABILITY 

- WELL THOUGHT OUT CONTROL STRUCTURES PROVIDE IMPROVED 
CAPABILITIES FOR ORGANIZING THE FLOW OF A PROGRAM 



* LOOKS FORWARD TO THE DEVELOPMENT OF MORE SOPHISTICATED TECHNIQUES 
FOR VERIFYING THE CORRECTNESS OF PROGRAMS 



USES 

* SYSTEM PROGRAMMING 

* SCIENTIFIC APPLICATIONS 

DYNAMIC BOUNDS FOR ARRAYS AND SETS 
MULTIPRECISION REAL VARIABLES 
MULTIPRECISION INTEGER VARIABLES 
FIXED DATA TYPE 

* GENERAL PURPOSE 

SUPPORTS SEQUENTIAL FILES AND RANDOM ACCESS FILES 
READABLE AND EASILY MODIFIED 
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COMPARISONS WITH OTHER LANGUAGES 

* COMPARISON WITH ALGOL 60 

- ALGOL 60 WAS THE BASIS FOR PASCAL 

PRINCIPLES OF STRUCTURING 
FORM OF EXPRESSIONS 

- ALGOL 60 WAS NOT ADOPTED AS A SUBSET OF PASCAL BECAUSE 

SOME CONSTRUCTION PRINCIPLES ESPECIALLY THOSE OF DECLARATIONS 
WOULD NOT HAVE ALLOWED A CONVANIENT REPRESENTATION OF THE 
ADDITIONAL FEATURES OF PASCAL. 

- EXTENSIONS TO ALGOL 60 

RECORD AND FILE STRUCTURES 

( THE LACK OF DATA STRUCTURING FACILITIES IN ALGOL 60 WAS 

CONSIDERED THE PRIME CAUSE OF ITS RELATIVELY NARROW RANGE 

OF APPLICABILITY. ) 



* COMPARISON WITH PL/1 

- PASCAL CAN BE PROCESSED BY IMPLEMENTATIONS ON SMALL COMPUTERS 

- PASCAL MORE EASILY PRODUCES OPTIMIZED CODE 

- PASCAL PROVIDES BETTER CONTROL STRUCTURES 

- PASCAL REQUIRES EXPLICIT DATA TYPES 

- PASCAL REQUIRES EXPLICIT TYPE TRANSFERS 

- PASCAL AVOIDS UNNECESSARY ALTERNATIVE FUNCTIONS 
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* COMPARISON WITH FORTRAN 

MOST OF THE DIFFERENCES BETWEEN PASCAL AND FORTRAN ARE A RESULT 
OF PASCAL'S DATA STRUCTURING FACILITIES AND ITS EMPHASIS ON 
PRODUCING STRUCTURED, RELIABLE CODE THAT IS READABLE AND EASILY 
MODIFIED. 

- PASCAL HAS IMPROVED CONTROL STRUCTURES FOR CONTROLLING THE 
FLOW OF A PROGRAM 

- THE 'GOTO" STATEMENT IS UNNECESSARY 

- CERTAIN UNRELIABLE STATEMENTS HAVE BEEN OMITTED FROM PASCAL: 

THE ARITHMETIC 'IF-" STATEMENT 
THE COMPUTED 'GOTO'' STATEMENT 
THE "EQUIVALENCE' STATEMENT 

- PASCAL IS A STACK IMPLEMENTED LANGUAGE. 

ONLY THE ROUTINES WHICH ARE CURRENTLY INVOKED HAVE STACK SPACE 
ALLOCATED. 

SUBROUTINE VARIABLE VALUES ARE NOT SAVED ONCE THE SUBROUTINE 
ENDS 

- PASCAL RESTRICTS FUNCTION SIDE EFFECTS 

- PASCAL REQUIRES EXPLICIT VARIABLE DECLARATIONS 

- PASCAL HAS STRONG TYPE CHECKING 

- PASCAL IS NATURALLY REENTRANT 
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EXTENSIONS TO THE PASCAL LANGUAGE 

TI PASCAL CONFORMS TO THE DESCRIPTION OF THE PASCAL LANGUAGE 
GIVEN IN THE "PASCAL USER MANUAL AND REPORT" BY KATHLEEN JENSEN AND 
N I KLAUS WIRTH. IN ADDITION, TI PASCAL OFFERS A NUMBER OF ENHANCEMENTS 

* COMMON VARIABLES 

- REQUIRE AN 'ACCESS'- DECLARATION 

- MAY BE SHARED WITH EXTERNAL ROUTINES 

- EXIST BEYOND THE EXECUTION OF THE ROUTINE IN WHICH THEY ARE 
DECLARED 

* DYNAMIC BOUNDS FOR ARRAYS AND SETS 

* MULT I PRECISION INTEGER VARIABLES 
» MULT IPRECIS ION REAL VARIABLES 

* 'FIXED'- DATA TYPE 

- MAXIMUM PRECISION IS 31 BITS 

* 'DECIMAL' DATA TYPE 

- MAXIMUM PRECISION IS 15 DECIMAL DIGITS 
« 'ESCAPE' STATEMENT 

* EXPLICIT TYPE OVERRIDE OPERATOR 

* ASSERT STATEMENT 

- TESTS A CONDITION WHICH SHOULD BE TRUE AT A GIVEN POINT IN THE 
PROGRAM. IF THE CONDITION IS NOT TRUE, A RUNTIME ERROR OCCURS. 

* LINKAGE TO EXTERNAL FORTRAN AND ASSEMBLY LANGUAGE SUBROUTINES 
USING FORTRAN LINKAGE 

* ADDITIONAL TYPE CHECKING FOR PROCEDURE AND FUNCTION PARAMETERS 



af 



MODIFICATIONS TO PASCAL 



* RESTRICTION OF FUNCTION SIDE EFFECTS 

A FUNCTION MAY NOT CHANGE THE VALUE OF THE FOLLOWING: 
A NONLOCAL VARIABLE 

A VARIABLE PARAMETER OF THE FUNCTION 
A 'COMMON' VARIABLE 
A POINTER VARIABLE FOLLOWED BY @ 

A USER DEFINED FUNCTION MAY NOT CONTAIN: 

CALLS TO USER DEFINED PROCEDURES OR THE STANDARD PROCEDURE 
•'READ' 

CALLS TO EXTERNALLY DEFINED FUNCTIONS 

PROCEDURES OR EXTERNALLY DEFINED FUNCTIONS AS PARAMETERS 

A 'WITH' STATEMENT THAT CONTAINS A RECORD VARIABLE FOLLOWED 
BY e 

CALLS TO 'NEW' OR 'DISPOSE' THAT HAVE PARAMETERS THAT ARE 
NOT EITHER LOCAL VARIABLES OR VALUE PARAMETERS 

THE ARRAY INTO WHICH DATA IS PACKED BY 'PACK' MUST BE A 
LOCAL VARIABLE OR A VALUE PARAMETER 

THE ARRAY INTO WHICH DATA IS UNPACKED BY 'UNPACK' MUST BE A 
LOCAL VARIABLE OR A VALUE PARAMETER 

THE STRING INTO WHICH DATA IS PLACED BY 'ENCODE' MUST BE A 
LOCAL VARIABLE OR A VALUE PARAMETER 

THE VARIABLE INTO WHICH DATA IS PLACED BY 'DECODE' MUST BE A 
LOCAL VARIABLE OR A VALUE PARAMETER 

THE NONFILE PARAMETERS OF A 'READ' PROCEDURE AND THE 'OVAL' 
PARAMETER OF AN 'lOTERM' PROCEDURE MUST BE LOCAL VARIABLES 
OR VALUE PARAMETERS 

PROCEDURES 'RESET', 'REWRITE', 'EXTEND', 'WRITEEOF', 

'SKIPFILES', 'CLOSE', 'SETNAME', 'SETMEMBER', AND 'lOTERM' 
MAY BE USED ONLY WITH PARAMETERS OF FILE TYPE THAT ARE 
LOCAL VARIABLES 
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* LIMITED USE OF THE 'GOTO-- STATEMENT 

A PROCEDURE, FUNCTION, OR PROGRAM WITH LABEL DECLARATIONS 
WILL NOT HAVE ITS CODE OPTIMIZED BY THE TIP COMPILER 

YOU MAY NOT JUMP INTO OR OUT OF A PROCEDURE OR FUNCTION 

YOU MAY NOT JUMP INTO A ■'FOR" OR -WITH' STATEMENT 

* EXTENDED FORM OF THE 'WITH" STATEMENT 

* LOCAL SCOPE OF "FOR" STATEMENT INDEX 



* "OTHERWISE" CLAUSE AND SUBRANGE CASE LABELS WITH THE "CASE- 
STATEMENT 



* MORE FLEXIBLE I/O 

AUTOMATIC CREATION OF FILES FOR THE DEFAULT FILES "INPUT- 
AND "OUTPUT" 

CRU I/O 



* CONSTANTS AS PROGRAM PARAMETERS 



# THE PREDEFINED SYMBOL "MA XI NT" IS NOT SUPPORTED 



» ALTERED PRECEDENCE FOR LOGICAL OPERATORS "NOT", "AND", AND "OR" 

THESE OPERATORS ARE EVALUATED IN THIS ORDER AND HAVE 
THE LOWEST OPERATOR PRIORITY 



U- 



PROGRAM SAMPLE; 

VAR TIME, MAX, MIN s REAL; 

PROCEDURE READ-ECHO (VAR TIME : REAL); 
BEGIN 

READ<TIME>; 

WRITELN(^TIME = ',TIME ); 
END; 

PROCEDURE DETERMINE_MAX_MIN ( VAR MAX, MIN : REAL; TIME : REAL); 
BEGIN 

IF TIME > MAX THEN MAX := TIME 

ELSE IF TIME < MIN THEN MIN := TIME 
END; 



(» MAIN *> 
BEGIN 

RESET ( INf='UT ); 
IF NOT EOF THEN BEGIN 
READ-ECHO (TIME ); 
MAX := TIME; MIN := TIME ; 
IF EOLN THEN READLN; 
END; 
WHILE NOT EOF DO 

IF NOT EOLN THEN BEGIN 
READ-ECHO (TIME ); 

DETERMINE_MAX_MIN(MAX, MIN, TIME); 
END 
ELSE READLN; 

writeln; 

WRITELN(-'MAX TIME IS '.MAX," MIN TIME IS --.MIN); 
END. 
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DATA TYPES 



OBJECTIVES 



STUDENTS SHOULD BE ABLE TO WRITE DECLARATIONS FOR VARIABLES AND 
CONSTANTS OF THE FOLLOWING TYPES: 

INTEGER 

LONG INTEGER 

REAL 



STUDENTS SHOULD BE ABLE TO USE THESE DATA TYPES IN EXPRESSIONS 
TO SOLVE A SPECIFIED PROBLEM. 



AGENDA 



1. IDENTIFIERS 

2. VARIABLE DECLARATIONS 

3. DATA TYPES 

- INTEGER 

- LONG INTEGER ( LONG I NT ) 

- REAL 

4. EXPRESSIONS 

5. TYPE DECLARATIONS 

6. CONSTANT DECLARATIONS 



J,0 



VARIABLES AND DATA TYPES 



IDENTIFIERS 



DEF: NAMES DENOTING ONE OF THE FOLLOWING: 

- CONSTANTS 

- TYPES 

- VARIABLES 

- PROCEDURES 

- FUNCTIONS 

- ESCAPE LABELS 

- PROGRAMS 



SYNTAX: 

MUST BEGIN WITH A LETTER OR * 
REST OF CHARACTERS MAY BE 

- LETTER 

- DIGIT 

- * 

- UNDERSCORE ( _ ) 

NO LIMIT ON LENGTH 

CANNOT BE THE SAME AS A RESERVED IDENTIFIER 



RESERVED IDENTIFIERS: 

ACCESS 

AND 

ARRAY 

ASSERT 

BEGIN 

BOOLEAN 

CASE 

CHAR 

COMMON 

CONST 

DECIMAL 

DIV 

DO 



DOWNTO 


INTEGER 


RANDOM 


ELSE 


LABEL 


REAL 


END 


LONG I NT 


RECORD 


ESCAPE 


MOD 


REPEAT 


FALSE 


NIL 


SET 


FILE 


NOT 


TEXT 


FIXED 


OF 


THEN 


FOR 


OR 


TO 


FUNCTION 


OTHERWISE 


TRUE 


GOTO 


OUTPUT 


TYPE 


IF 


PACKED 


UNTIL 


IN 


PROCEDURE 


VAR 


INPUT 


PROGRAM 


WHILE 
WITH 



EXAMPLES: 



LEGAL 



ILLEGAL 



READ-CHARACTER 

READ_CHAR 

ARRAYS 

ABS 



_VALUE 
ARRAY 
3TIMES 
VAR 
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VARIABLES AND DATA TYPES 



VARIABLES 



DEF! IDENTIFIER WHICH MAY BE USED TO STORE A DATA VALUE OF A 
SPECIFIED TYPE. 

EVERY VARIABLE USED IN A PASCAL PROGRAM, MUST BE 
DECLARED IN A -VAR' DECLARATION. 



■'VAR' DECLARATIONS 



< TYPE >; C < V LIST > 



TYPE > 1 . 



SYNTAX : 

VAR <: V LIST > 
WHERE, 

< V LIST > - LIST OF VARIABLE NAMES WHICH ARE BEING DECLARED 

< TYPE > - THE DATA TYPE WHICH MAY BE STORED IN ANY OF THE 

IDENTIFIERS IN < V LIST > 



TYPE > MAY BE: 

INTEGER 
LONG I NT 
BOOLEAN 
CHAR 
SCALAR 
SUBRANGE 

REAL 
FIXED 
DECIMAL 
POINTER 
ARRAY 
RECORD 
SET 
FILE 



USER DEFINED TYPE 

EXAMPLE! VAR COUNTER, INDEX, MAX : INTEGER; 

SALARY, COST, RATE : REAL; 

**NOTE: THE KEY WORD ■VAR- APPEARS ONLY ONCE. 



ENUMERATION TYPES 



%' 



VARIABLE TYPES 



INTEGER TYPE 



RANGE: 

-32768 . . 32767 
DECLARATION: 

VAR < V LIST > : INTEGER; 
EXAMPLE: 

VAR COUNT, TEST : INTEGER? 



( 16 BIT, 2-S COMPLEMENT ) 



INTEGER OPERATORS 



DIV 



MOD 



DIV - INTEGER DIVISION ( E.G. 5 DIV 2=2) 

MOD - REMAINDER ( MODULO ) (E.G. 7 MOD 3 = 1 ) 



EXTENDED INTEGERS ( LONG I NT ) 

RANGE: 

-2147483649 .. 2147483647 
DECLARATION: 

VAR < V LIST > : LONG I NT; 
OPERATORS: 

SAME AS FOR INTEGERS 



( 32 BIT, 2-S COMPLEMENT ) 



*#N0TE: constants MAY BE LONG I NT BY USING THE SUFFIX -L 
E.G. 725766L 



?/ 



INTEGER EXPRESSIONS 



VAR VAL, NVAL, IVAL s INTEGER; 



VAL != 27; (* THIS IS A COMMENT #) 

NVAL := VAL MOD 6; (*■':=- IS THE ASSIGNMENT OPERATOR ») 

(* WHAT VALUE IS ASSIGNED TO I VAL IN THE FOLLOWING --STATEMENT'?? *) 

I VAL :== NVAL + 9 DIV 2; (* *> 

VAL := #FF; (* ■-#' MEANS HEXADECIMAL *) 



OPERATOR PRECEDENCE 



MOD DIV HIGHEST PRECEDENCE 



< = > <= >= <> IN 

NOT 

AND 

OR LOWEST PRECEDENCE 

** NOTE: OPERATORS WITH THE SAME PRECEDENCE ARE EVALUATED LEFT TO RIGHT 

COMPILER OPTION CKOVER 



ENABLES OR DISABLES CHECKING OVERFLOW WHEN EVALUATING INTEGER, 
LONG I NT, DECIMAL, AND FIXED EXPRESSIONS 

DEFAULT IS FALSE 



r^ 



REAL TYPE 



RANGE: 

FRACTION - 6 TO 7 DECIMAL DIGITS OF PRECISION 

EXPONENT - 1.0 X 10#*-78 .. 1.0 X 10##75 

*«N0TE: THIS STANDARD PRECISION MAY BE OVERRIDDEN BY SPECIFYING 
THE DESIRED ACCURACY WHEN A VARIABLE IS DECLARED 

E.G. VAR X : REAL ( 12 ) — > 12 DECIMAL DIGITS 



declaration: 

VAR < V LIST > : REAL C ( < ACCURACY > ) 1' 

EXAMPLE: 



VAR TEST, NEW : REAL < 13 )? 
A, B : REAL; 
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REAL CONSTANTS 



syntax: 



E + 
< DIGITS > . < DIGITS > < DIGITS > 

Q 



OR 



E + 
DIGITS > < DIGITS > 

Q 



WHERE, 

< DIGITS > = . . 9 

E = SCIENTIFIC NOTATION 

Q = NUMBER IS REPRESENTED INTERNALLY AS AN EXTENDED 
PRECISION REAL NUMBER 

EXAMPLES: 

LEGAL: 0.3, 5E-3, 87.36E8, 12.9E-5 

ILLEGAL: 3, 450, 26. E5, .001, #120.1 

**NOTE: THE DECIMAL POINT MUST BE SURROUNDED BY DIGITS!!! 



ff 



REAL NUMBER REPRESENTATION 



SINGLE PRECISION REAL NUMBERS ARE STORED IN 2 16-BIT WORDS 
AS FOLLOWS: 

radix point 

I 

I 

V 

■first ! S ! exponent ! most significant i normalized 
word I ! ! 8 bits of number I hexadecimal 

• f ract i on 

second ! least significant 16 bits I 

word i I 



S - SIGN OF THE FRACTION 

EXPONENT - HEXADECIMAL EXPONENT FOR THE FRACTION. 

EXPONENT IS BIASED BY >40 < I.E. >41 = 1, 
>40 = 0, >3F = -1, ETC. ) 

NUMBER - 24 BIT HEXADECIMAL NORMALIZED FRACTION 



EXTENDED PRECISION REAL NUMBERS ARE STORED IN 4 16-BIT WORD:; 
THE SIZE OF THE EXPONENT IS NOT INCREASED. 



EXAMPLES 



NUMBER (10) 




REAL 
REP. 


HEX 
REP . 


1.0 





4 1 1 00000 


4110 


0000 


100.0 





42 640000 


4264 


0000 


-1.0 


1 


41 100000 


Clio 


0000 


.03125 





3F SOOOOO 


3F80 


0000 
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REAL OPERATORS 



**NOTE: THERE IS NO EXPONENTIATION OPERATOR 
REAL EXPRESSIONS 

VAR A, B s REAL; 



A :== 4.7; 

B := ( A + 15.0 ) * ( B - 2.1 ) (* PAREN'S HAVE THE USUAL MEANING *) 



MIXED MODE 



< EXPRESSION > < OPERATOR > < EXPRESSION > 

- REAL RESULT IF AT LEAST ONE OPERAND IS REAL. 

- INTEGER RESULT IF BOTH OPERANDS ARE INTEGER. 

WHERE, 

<: OPERATOR > IS +, -, * 

<: EXPRESSION > / < EXPRESSION > IS ALWAYS REAL 

- DIV AND MOD MAY ONLY OPERATE ON INTEGER EXPRESSIONS 



INTEGER VALUES MAY BE IMPLICITLY CONVERTED TO REAL 
BY ASSIGNING IT TO A REAL VARIABLE. 



< INTEGER VARIABLE > := < REAL EXPRESSION > — ILLEGAL 

< REAL VARIABLE > := < INTEGER EXPRESSION > — LEGAL 



#*NOTE: IN ALL OTHER CASES, THE TYPE OF THE EXPRESSION SHOULD MATCH 
THAT OF THE VARIABLE ON THE LEFT OF THE EQUAL SIGN. 



% 



MIXED MODE EXAMPLES 



EXPRESSION 

5/2 

5 DIV 2 * 10.0 

SQRT ( 9 ) 

4.0 DIV 2.0 

3 / ( 3 # 10.0 ) 



REAL 


VALUE 


2. 


,5 


20. 


,0 


3. 


,0 


« ILLEGAL * 


0. 


,1 



EXAMPLE: 

PROGRAM ERRORS? 

(* THIS PROGRAM ILLUSTRATES MODE ERRORS *) 



VAR PI, PIOVERTWO : REAL; 
INT : INTEGER? 

BEGIN (» ERRORS *) 
PI := 3.14159? 

PIOVERTWO := PI DIV 2; (* ILLEGAL *) 
INT := PI / 2? (# ILLEGAL ») 

INT := ROUND ( PI / 2 ) (* OK *) 

END. (# ERRORS *) 






CONSTANT DECLARATIONS 

VALUES MAY BE ASSIGNED TO VARIABLE NAMES BY USING CONSTANT 
DECLARATIONS. 

SYNTAX : 

CONST < C NAME > = < C EXPRESSION >? C < C NAME > = < C EXPR > 1 . . 

WHERE, 

< C NAME > - IDENTIFIER FOR CONSTANT 

< C EXPRESSION > - EXPRESSION WHICH MAY BE EVALUATED AT COMPILE TIME. 

NOTES: 

- THE TYPE OF THE EXPRESSION DETERMINES THE TYPE 
OF THE CONSTANT 

- NEW VALUES MAY ** NOT ♦♦ BE ASSIGNED TO A CONSTANT AT RUN TIME! 
EXAMPLE: 

CONST PI = 3.14159; 
R = 27.0? 

VAR AREA s REAL; 



AREA := PI » R * R; 

PI := 2.7; <* ILLEGAL *) 






TYPE DECLARATIONS 



NEW DATA TYPES MAY BE SPECIFIED OR STANDARD DATA TYPES RENAMED 
BY USING A 'TYPE' DECLARATION. 



SYNTAX: 

TYPE < T NAME > = < TYPE >? C < T NAME > = < TYPE >? ] . . 
WHERE, 

< T NAME > - NEW TYPE IDENTIFIER 

< TYPE > - SAME AS FOR THE 'VAR-- DECLARATION 

EXAMPLE: 



TYPE XREAL 
LI 



REALt 15 ); 
LONG I NT? 



VAR 



A, B : 


REAL; 


C» D : 


XREAL; 


W, X : 


INTEGER; 


Y, Z : 


LI; 



»*N0TE: OTHER USES FOR THE 'TYPE' DECLARATION WILL BE ADDRESSED LATER. 



J? 



WORKSHEET 1 



1. DECLARE A CONSTANT C TO HAVE A VALUE OF 200. 



2. DECLARE A VARIABLE I_NUM TO BE OF TYPE INTEGER 



3. DECLARE A VARIABLE RNUMl AND RNIJM2 TO BE OF TYPE REAL. 



4. WRITE A STATEMENT TO ASSIGN RNUMl THE VALUE OF THE 
FOLLOWING EXPRESSION. (C IS A CONSTANT, B IS A REAL 
VARIABLE. ) 

RNUM2 X 2.0 

C - ( B + 1 ) 



5. DECLARE A NEW TYPE R8 WHICH WILL BE fk REAL NUMBER WITH 
3 DECIMAL PLACES OF ACCURACY. 



GIVEN THE FOLLOWING DECLARATIONS, INDICATE WHETHER THE 
EXPRESSIONS ARE LEGAL: 

CONST RC = 5.236 
VAR Rl, R2 : REAL; 

II, 12 : INTEGER; 

6. Rl := R2 / 2; 9. 12 5= 3 / 4; 

7. R2 := 11 + 12; 10. 12 := 3.0 DIV 4.0; 

8. II := R2; 
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STATEMENTS 

STATEMENTS PERFORM ARITHMETIC AND LOGIC OPERATIONS 

E.G. 

- CALL PROCEDURES AND FUNCTIONS 

- CONTROL SEQUENCE OF PROGRAM EXECUTION 

- PERFORM EVALUATION AND ASSIGNMENTS OF VALUES 

SIMPLE STATEMENTS 



- ASSIGNMENT 

- PROCEDURE 

- ESCAPE 

- GOTO 

- ASSERT 

- EMPTY 



STRUCTURED STATEMENTS 



- COMPOUND 

- CONDITIONAL 

- REPETITIVE 

- WITH 



PASCAL PROGRAM FORMAT 



PROGRAM < PROG. NAME >; 

< LABEL DECLARATIONS >? 

< CONSTANT DECLARATIONS >; 

< TYPE DECLARATIONS >; 

< VARIABLE DECLARATIONS >? 

< COMMON DECLARATIONS >; 

< ACCESS DECLARATIONS >; 

< PROCEDURE AND FUNCTION DECLARATIONS >? 

BEGIN 

C BODY OF PROGRAM ( BLOCK ) ] 
END. 



v/ 
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MODULE 4 

PROGRAM CONTROL STRUCTURES I 

OBJECTIVES 



- BE ABLE TO EVALUATE BOOLEAN EXPRESSIONS 

- BE ABLE TO USE THE FOLLOWING PROGRAM STRUCTURES 

IF-THEN-ELSE STATEMENT 
COMPOUND STATEMENT 
WHILE STATEMENT 
FOR LOOP 

TESTING METHOD: WORKSHEET 

PROGRAMMING ASSIGNMENT 1 

AGENDA 



1. BOOLEAN EXPRESSIONS 

- RELATIONAL OPERATORS 

2. PROGRAMMING STRUCTURES 

- IF-THEN-STATEMENT 

- COMPOUND STATEMENT 

- IF-THEN-ELSE STATEMENT 

- NESTED IF STATEMENT 

- WHILE LOOP 

- FOR LOOP 

WORKSHEET 



^^ 



PROGRAM CONTROL STRUCTURES 

BOOLEAN EXPRESSIONS 

DEFINITION: A BOOLEAN EXPRESSION IS AN EXPRESSION WHICH EVALUATES 
TO TRUE OR FALSE 

RELATIONAL OPERATORS 

A BOOLEAN EXPRESSION CONTAINS ONE OF THE FOLLOWING RELATIONAL 
OPERATORS: 

= EQUALITY 

< LESS THAN 

> GREATER THAN 

<> INEQUALITY 

<= LESS THAN OR EQUAL TO 

>= GREATER THAN OR EQUAL TO 



EXAMPLES: 
A = 3 
A <> B 



IS TRUE WHEN A IS 3 AND FALSE THEN A IS NOT 3 

IS TRUE WHEN A IS NOT EQUAL TO B AND FALSE 
WHEN A AND B ARE EQUAL 



5+3<2+4 IS FALSE 
**NOTE: '•=" IS A RELATIONAL OPERATOR. 



:=" ASSIGNS A VALUE 



1 
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IF-THEM STATEMENT 



syntax: if < EXPRESSION > THEN < STATEMENT > 

THE STATEMENT WILL BE EXECUTED IF THE EXPRESSION IS TRUE. 
IT WILL NOT BE EXECUTED IF THE EXPRESSION IS FALSE. 



EXAMPLE: IF NUMBER > MAX THEN MAX := NUMBER; 




TRUE 



MAX = NUMBER 



■<- 



NEXT STATEMENT 



FALSE 



H 



IF-THEN-ELSE STATEMENT 



SYNTAX: IF < BOOLEAN EXPRESSION > THE 
ELSE < STATEMENT2 > 



< STATEMENT 1 > 



NOTE: THERE IS NO •'?' BEFORE 'ELSE' 

IF THE EXPRESSION IS TRUE THEN ONLY STATEMENT 1 WILL EXECUTE. 
IF THE EXPRESSION IS FALSE THEN ONLY STATEMENT2 WILL EXECUTE. 

EXAMPLE: FIND THE ABSOLUTE VALUE ABSX OF REAL NUMBER X. 



VAR X, ABSX : REAL; 

IF X >= THEN 

ABSX := X 
ELSE ABSX != -X; 




FALSE 



ABSX := X 



ABSX := -X 



T: 



COMPOUND STATEMENT 

SOMETIMES YOU MAY WISH TO EXECUTE A GROUP OF STATEMENTS WHEN A CERTAIN 
CONDITION IS TRUE INSTEAD OF ONLY ONE. PASCAL ALLOWS STATEMENTS TO BE 
GROUPED TOGETHER BY USING A 'BEGIN-END" BLOCK. 

SYNTAX: BEGIN 

<STATEMENT>; 

» 

<STATEMENT> (*N0 ' ; ^ #) 
END 

#♦ NOTE: THERE IS NO '?' BEFORE •'END" 



WHEN ONE OR MORE STATEMENTS ARE ENCLOSED WITHIN A "BEGIN-END-' BLOCK. 
THE ENTIRE GROUP FROM "BEGIN' TO "END" FUNCTIONS AS A SINGLE STATE- 
MENT. 



EXAMPLE! IF COUNTER = MAX THEN 
BEGIN 

NUM := NUM + 1! 

AVG := SUM / COUNTER! 

COUNTER :== (♦ NO "?" *) 

END; 



ib 



NESTED •'IF'- STATEMENT 



syntax: if <EXPRESSI0N> THEN 

IF <EXPRESSI0N> THEN <STATEMENT:: 

ELSE <statement:> 

ELSE <STATEMENT> 



example: IF CODE = THEN 

DEDUCTION := ZERODEP 
ELSE IF CODE = 1 THEN 

DEDUCTION = ONEDEP 
ELSE IF CODE = 2 THEN 

DEDUCTION = TWODEP; 



( * NO •' ; '• # ) 
(# NO ';' #) 



♦*NOTE: EACH "ELSE' IS ASSOCIATED WITH THE CLOSEST "IF' 

BUT — WHAT IF YOU WANT THIS? 

r>IF <EXPRESSION> THEN 

IF <EXPRESSION> THEN <STATEMENT> 

■ELSE <STATEMENT> 

IN SPITE OF THE FORMAT. THE "ELSE" WILL BE ASSOCIATED WITH THE 
SECOND "IF" SINCE IT IS THE CLOSEST ONE. 

THIS PROBLEM CAN BE SOLVED BY USING A "BEGIN-END" BLOCK: 
IF <EXPRESSION> THEN 
BEGIN 

IF <EXPRESSION> THEN <STATEMENT> 
END ( ■»• NO " ; " * ) 

ELSE <:STATEMENT>; 



i/ 



example: a survey IS BEING MADE OF THE NUMBER OF TRAFFIC TICKETS 
RECEIVED BY DRIVERS. DRIVERS ARE GROUPED BY: 

- SEX 

- AGE ( <: 21, > = 21) 

- # OF TICKETS < <C = 5, 6 TO 10, > 10) 

GROUP 1 MIGHT BE FEMALES UNDER 21 WITH 5 OR FEWER TICKETS. 

WRITE AN ■'IF- STATEMENT TO SUM THE GROUPS FOR MEN. 
ASSUME SEX CODES ARE ^F^ AND 'M'. 



n 



WHILE LOOP 



syntax: while <B00LEAN EXPRESS I 0N> DO -dSTATEMENT; 



THE WHILE STATEMENT SPECIFIES THAT A CERTAIN STATEMENT 
WILL BE REPEATEDLY EXECUTED WHILE A CERTAIN CONDITION IS TRUE. 
IF THE STATEMENT IS INITIALLY FALSE THE EXPRESSION WILL NOT BE 
EXECUTED AT ALL. 

THE STATEMENT MAY BE A COMPOUND STATEMENT. 

THE EXPRESSION IS EVALUATED BEFORE EACH ITERATION OF THE LOOP. 
SO KEEP IT SIMPLE. 



START 




FALSE 



**NOTE! THE VARIABLE CONTROLLING THE LOOP MUST BE MODIFIED IN 
THE STATEMENT TO AVOID AN INFINITE LOOP. 
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EXAMPLE 5 FIND THE SMALLEST N SUCH THAT 

1 + 1/2 + 1/3 +...+ 1/N IS GREATER THAN SOME 
CONSTANT C 

PROGRAM FINDN; 

CONST C = 2.5; 
VAR N : INTEGER; 
SUM ! REAL; 

BEGIN 
N := 0; 
SUM != 0; 

WHILE SUM <= C DO 
BEGIN 

N := N + l; 

SUM := SUM + 1 / N 
END; 

(« PRINT OUT N ») 

END. (* FINDN *) 

EXAMPLE: COMPUTE N FACTORIAL 

PROGRAM NFACTORIAL? 

VAR I, J, N s INTEGER; 

BEGIN (♦ NFACTORIAL *) 

C READ A VALUE FOR N ] 
I := 1? 
J := 1? 

WHILE I < N DO 
BEGIN 

I := I + i; 
J :a I * J 

end; 

C WRITE OUT J 1 
END. <♦ NFACTORIAL *) 



OL. 



FOR-LOOP 

* THE FOR-LOOP IS LIKE THE -DO' STATEMENT IN FORTRAN. 

syntax: FOR <VARIABLE> := <EXPRESSION> TO <EXPRESSION> DO 

<STATEMENT> 
OR 

FOR <VARIABLE> != <EXPRESSION> DOWNTO <EXPRESSION> DO 
<STATEMENT> 



EXAMPLE: PROGRAM FORLOOP? 

VAR N I INTEGER! 

SUMl, SUM2 : REAL 5 

BEGIN 

READ(N); 
SUMl :* 0? 
SUM2 := 0? 
FOR I := 1 TO N DO 
BEGIN 

SUMl := SUMl +1/1! 
SUM2 := SUM2 + SUMl 
END! 
WRITE (SUMl, SUM2) 
END. 



- 5/ 



i.;r :i I 



-? I V <i f, i'-J , 



!-r~U'i'<r' ! '•■■ 



Sv!Mi:iTE::TME I..JtiITS OF' T1-!E FOR IJJOP ARE" CmNGTANT AI'JD ARE NCT i-:HA!vnFri 
IN SIDE TME LnOP. 

FOR I := J TO N DO 
N :^= hi 4- 1. 

IF N WAS ORIGINALLY 10, Ti!E LOOP WILL BF EXECUTED 10 TI!1E::;;. 



THE INDEX OF THE FOR LOOP DOCS NOT HAVE TO DE DECLARED, 



COMPTI.ER OPTION FOR INDEX 



ENABLES OR D I SABLES THE ISSUINO OF WARN INC MtS: 
OE FOR CONTROL VARIABLES ARE IDENTICAL I'O NAME: 
ACCESS I Bl ,E VAR T ABLES . 



;;AOES W; IRK! i\if: 
-, OF iTrOEi''' 



DEFAULT IS FALSE 



— o 



SUMMARY 



THE •IF" STATEMENT SPECIFIES THAT A STATEMENT BE EXECUTED IF 

A CERTAIN CONDITION IS TRUE. IF IT IS FALSE, EITHER NO STATEMENT 

IS EXECUTED OR THE STATEMENT FOLLOWING THE 'ELSE' IS EXECUTED. 

•'IF' STATEMENTS MAY BE NESTED. THE 'ELSE^' IS ASSOCIATED WITH THE 
MOST RECENT -TF". 

PASCAL ALLOWS US TO FORM A COMPOUND STATEMENT CONSISTING OF ONE 
OR MORE STATEMENTS ENCLOSED BY A BEGIN-END. A COMPOUND STATEMENT 
ACTS EXACTLY LIKE A SINGLE STATEMENT. 

A BOOLEAN EXPRESSION EVALUATES TO TRUE OR FALSE. IT CONTAINS 
ONE OF THE RELATIONAL OPERATORS =. <, >, <=, >=, O 

THE WHILE STATEMENT ALLOWS A STATEMENT TO BE EXECUTED REPEATEDLY 
WHILE A CERTAIN CONDITION IS TRUE. 

THE FOR LOOP ALLOWS A STATEMENT TO BE EXECUTED REPEATEDLY A 
SPECIFIED NUMBER OF TIMES. IT IS SIMILAR TO THE "DO" LOOP IN 
FORTRAN. 



/-7 >^ 



WORKSHEET 2 
EVALUATE THE FOLLOWING BOOLEAN EXPRESSIONS: 

1 . 4 > • 1 

N <= 10 

2. WHEN N = 7 

3. WHEN N = 10 

4. WHEN N = 11 

WRITE AN •'IF" STATEMENT FOR EACH OF THE FOLLOWING: 

5. ADD 1 TO THE VALUE OF I WHEN I IS LESS THAN N. 



6. IF A IS LARGER THAN B THEN DIFF IS EQUAL TO A - B, BUT 
IF B IS LARGER THAN A THEN DIFF IS EQUAL TO B - A. 



USE A COMPOUND STATEMENT IN WRITING THIS 'IF" STATEMENT: 

IF A IS LESS THAN OR EQUAL TO B THEN A EQUALS A TIMES B AND 

COUNTER EQUALS COUNTER PLUS 1. OTHERWISE COUNTER EQUALS 0. 



8. USE A NESTED "IF" STATEMENT IN WRITING THE FOLLOWING: 
IF A = B AND IF C = D THEN SUM = SUM + D 
BUT IF C = E THEN SUM = SUM + E 
BUT IF C IS ANYTHING ELSE, SUM = 0. 



9. WRITE A "WHILE" STATEMENT THAT WILL ADD 1 TO COUNTER AND 

ADD GRADE TO SUM AS LONG AS COUNTER IS LESS THAN OR EQUAL TO 
NUMGRADES. 



10. USING A FOR LOOP CALCULATE THE VALUE OF THE FOLLOWING 

SUM WHEN I GOES FROM 1 TO 20: 1 + 1/2 + 1/3 + ... + l/I 



TV 
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INPUT/OUTPUT 
OBJECTIVES: 

- BE ABLE TO DECLARE A VARIABLE TO BE OF TYPE CHAR 
AND ASSIGN IT A VALUE. 

- BE ABLE TO READ AND WRITE CHARACTERS OR NUMBERS USING A TEXTFILE 
OR THE DEFAULT FILES •- INPUT' AND 'OUTPUT'. 

- BE ABLE TO SHOW ON A DIAGRAM HOW THE INPUT MUST LOOK FOR A GIVEN 
READ STATEMENT 

- BE ABLE TO SHOW HOW THE OUTPUT WILL LOOK AFTER A GIVEN WRITE 
STATEMENT IS EXECUTED. 

- BE ABLE TO USE THE BOOLEAN FUNCTIONS EOF AND EOLN TO TEST FOR 
THE END OF FILE AND THE END OF A LINE. 

■t 

AGENDA 

1. CHAR DATA TYPE 

2. TEXTFILES 

3. INPUT 

- READ STATEMENT 

WORKSHEET 

- RESET 

- READLN 

- EOF 

- EOLN 

4. OUTPUT 
WORKSHEET 



^T 






ivy- ■\F- -■:':■, i4 J r:n ri JE MACI-ilNE':-;. Ci-iAftACTER bcT , 
T|-:r: ORpr-RINn If; TriP!...EMEMTATiON ni-TTNDrNT, 



WR T T I iMG CHARAGTE:? JS - 

CHARACTER VALUES ARE WRITTEN AS A SINGLE GHARAGTER Sui';RuUNrtE 
DY AFOSTROPNEG 



THE APnSTROPHF •- AND THE NUMBER STGN # ARE RFPRrSENTFIJ By 2 
GGMSEGUT I VE CHARAC rERS 
■•••■■•••■•• •••##••• 



A CHARACTER MAY BE WRITTEN AS A # FOlLGWEn BY ITS 2 DIG 
HE X [ DEC T M AL CHARACTER CODE 

A CAN BE WRITTEN •-A- OR #41 

Z CAN BE WRITTEN -I-' OR #SA 

1 CAN BE WRITTEN -■I- OR #S1 



AS THE NUMBER 1. YOU CANNOT PERFORM ARITHMETTG Gi"FRATIGNS G!\ 
CHARACTERS , 



ri!-t<^r-mi n<- Whirh of the f o 1 1 ouji ns fire le=i'il 



I :' 
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TEXTFILES 



DEFINITION: A FILE WHOSE COMPONENTS ARE CHARACTERS. TEXTFILES ARE 
THE MOST COMMONLY USED FILES. 

- THE TYPES WHICH MAY BE READ TO OR FROM A TEXTFILE ARE 

CHAR 

INTEGER 

LONG I NT 

REAL 

DECIMAL 

FIXED 

BOOLEAN TRUE, FALSE, T, OR F 

STRINGS 

- FOR TYPES OTHER THAN CHAR AN IMPLICIT DATA CONVERSION IS MADE. 

SYNTAX! VAR FILENAME : TEXT? 

DEFINES A FILE OF TYPE TEXT 

EXAMPLE: VAR TFILE : TEXT 5 

DEFINES TFILE AS A TEXTFILE 



FILES •'INPUT- AND 'OUTPUT- 



PASCAL PROVIDES TWO DEFAULT FILES, 'INPUT- AND -OUTPUT' 
WHICH THE PROGRAMMER CAN USE WITHOUT SPECIFYING 
THE FILE NAME. 
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READ STATMENT - UNFORMATTED 

syntax: READ (FILENAME, VI, ..., VN) READS FROM FILE FILENAME 

READ (VL, ..., VN) READS FROM DEFAULT FILE INPUT 



EXAMPLES! 



READ (TFILE, CH) 



READ (DATA, NUMl, NUM2) 



READ (CH) 



READS A CHARACTER FROM FILE 
TFILE AND ASSIGNS ITS VALUE TO 
CH. 

READS 2 VALUES FROM FILE DATA 
AND ASSIGNS THEM TO NUMl AND 
NUM2. 

READ FROM THE DEFAULT FILE 'INPUT' 



NUMBERS — THE ENTIRE FIELD IS READ 



GIVEN THE DECLARATIONS 
VAR I s INTEGER; 



s 2 s 3 : 1 : 



4 : 



EXECUTING READ (I) RESULTS IN 
: 2 : 3 I 1 : : 4 : 



I = 231 



*» NOTE: FIELDS MUST BE SEPARATED BY A BLANK 



CHARACTERS ~ MUST BE READ ONE AT A TIME 



GIVEN THE DECLARATIONS 
VAR CH : CHAR! 



:T:H:i:S! :l:S: 



EXECUTING READ (CH) RESULTS IN 



CH = 'T- 



5-f 



WORKSHEET 3 

1. GIVEN CH OF TYPE CHAR, WRITE A STATEMENT ASSIGNING CH 
THE VALUE 'A". 

2. ASSIGN CH THE VALUE OF THE CHARACTER WHOSE HEX CHARACTER CODE IS 41 

3. WRITE A DECLARATION STATEMENT TO DECLARE A FILE •'NAMES' AS A TEXTFILE 

WRITE A READ STATEMENT FOR EACH OF THE FOLLOWING: 

4. READ ONE INTEGER N FROM A FILE CALLED 'DATA' 

5. READ TWO NUMBERS Rl AND R2 FROM THE DEFAULT FILE ' INPUT -• 



6. SHOW HOW THE DATA FOR THE PREVIOUS READ WOULD LOOK ON A CARD 
IF Rl = 12345 AND R2 = 4762 



•••!!!!!!2! 



7. READ A CHARACTER CH FROM THE DEFAULT FILE •'INPUT' 



t'f 



RESET STATEMENT 

DEFINITION: A FILE MUST BE '"RESET- BEFORE 'IT MAY BE READ. RESET 

OPENS THE FILE AND POSITIONS THE FILE POINTER TO THE BEGINNING OF THE FILE. 

SYNTAX: RESET ( FILENAME ) 



EXAMPLE: RESET (INPUT) RESETS THE FILE ' INPUT ' 

RESET (DATA) RESETS THE FILE 'DATA'- 



SUPPOSE THE INPUT FILE CONSIST OF THE THREE LINES 



THEN RESET (INPUT) YIELDS 



example: READ A CHARACTER FROM DEFAULT FILE •'INPUT-' 

RESET ( INPUT >; 
WHILE CH O " ■' DO 
BEGIN 

ftEAD (CH); 

(#process ch*) 
end; 

NOTE: 'INPUT^ MUST BE SPECIFIED IN THE RESET STATEMENT. 
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EOF FUNCTION — HAS VALUES TRUE OR FALSE 



definition: INDICATES IF THE END OF THE FILE HAS BEEN REACHED. 
EOF WILL HAVE A VALUE OF TRUE IF THE LAST RECORD 
IN THE FILE HAS BEEN READ AND FALSE OTHERWISE. 



SYNTAX: EOF ( FILENAME ) 

EOF - DEFAULT FILE ' INPUT' IS ASSUMED 

EXAMPLE: IF NOT EOF THEN 
BEGIN 

( # PROGRAM * ) 

END; 

EOLN FUNCTION — HAS VALUES TRUE OR FALSE 



definition: INDICATES WHEN THE END OF LINE HAS BEEN REACHED. EOLN WILL 
HAVE A VALUE OF TRUE IF THE LAST CHARACTER ON THE LINE HAS 
BEEN READ. 

SYNTAX: EOLN < FILENAME ) 

EOLN - DEFAULT FILE 'INPUT' IS ASSUMED 

EXAMPLE: WHILE NOT EOF DO 

IF NOT EOLN THEN 
BEGIN 

READ (CH); 

(* PROCESS (CH) »> 

END? 
**NOTE: WHEN READING CHARACTERS, IF THE EOLN MARKER 
IS ENCOUNTERED, A BLANK IS READ 

:::::: EOLN : EOF : 

AT THIS POINT EOLN = TRUE, EOF = FALSE 
READ <CH) => CH = , EOLN = FALSE, EOF = TRUE 
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READLN STATEMENT 



- SKIPS TO THE BEGINNING OF THE NEXT LINE. 

- READLN DOES NOT READ A CHARACTER. 

- THE NEXT CHARACTER READ AFTER EXECUTING A 
A 'READLN' WILL BE THE FIRST CHARACTER OF 
THE NEXT LINE. 



syntax: READLN < FILENAME ) 

READLN ASSUMES DEFAULT FILE INPUT 

EXAMPLE: 

VAR CHSCHAR; 



WHILE NOT EOF DO 
IF NOT EOLN DO 
BEGIN 

READ ( CH )5 
WRITE ( CH ); 
END 
ELSE READLN; 



/,;^ 



BEFORE A READ IS EXECUTED EOLN = FALSE 

EOF = FALSE 
READ (CH) YIELDS 



! & 



5 N : EOLN: 



: T : I : li : E : EOLN: 

: S : : : N : EOLN s EOF: 

THE FIRST CHARACTER HAS BEEN ASSIGNED TO CH. SUCCESSIVE READ STATEMEN 
EVENTUALLY RESULT IN THE FILE POSITION BEING AT THE END OF THE LINE. 

: S ! : : N : EOLNs 

EOLN = TRUE 

:- EOF = FALSE 

: T : I ! M : E : EOLN: 



^J 



: : N : EOLN: 



EOLN IS TRUE AND EOF IS STILL FALSE. READ (CH) RESULTS 

IN CH = '' •', EOLN < INPUT) = FALSE, EOF (INPUT) = FALSE AND THE FILE 

POSITION IS: 

; S : : : N : EOLN: EOLN = FALSE 
. EOF = FALSE 

: T ! I : M : E : EOLN: 



o 



: : N : EOLN: EOF : 



FROM THIS POSITION IF A READLN (INPUT) IS EXECUTED, THE POSITION WOULD 
AT THE BEGINNING OF THE NEXT LINE. 

: S : : : N : EOLN: 

: T : I : M : E : EOLN: 

: S : : : N : EOLN: EOF : 
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SUCCESSIVE READS WILL YIELD! 



: N : EOLN 



M : E : EOLN 



: S : : : N : EOLN s EOF : 

AT WHICH POINT EOLN (INPUT) IS TRUE AND EOF (INPUT) IS FALSE. 

ANOTHER READ (INPUT, CH) RESULTS IN 

: S : ! : N : EOLN : 

! T : I : M : E ! EOLN : 

! S : : : N : EOLN : EOF : 

NOW CH = •- ', EOLN (INPUT) = FALSE, AND EOF (INPUT) = TRUE. 

**NOTE: WHEN THE END OF A TEXTFILE IS REACHED, FIRST EOLN IS TRUE ANDFALSE. 
EOF IS FALSE. THEN THE NEXT READ MAKES EOLN FALSE AND EOF 
TRUE. 

YOU DO NOT HAVE TO DO A 'READLN' TO GET TO THE START OF THE 
NEXT LINE. 

WHEN READING NUMBERS, YOU MUST CHECK FOR EOLN IF YOU CHECK 
FOR EOF. THIS IS BECAUSE EOF IS NOT SET TO TRUE UNLESS EOLN 
IS READ FIRST. IF YOU ARE READING NUMBERS, EOLN WILL NEVER 
BE READ SINCE IT IS NOT A NUMBER. 



hi 



WORKSHEET 4 



1. WRITE A STATEMENT TO RESET THE DEFAULT FILE -INPUT- 



INDICATE BY DRAWING AN ARROW ON THE CHART WHEN THE FILE POINTER 

WILL BE AFTER THE EXECTUTION OF EACH STATEMENT 2< FILL IN THE 

VALUE FOR CH, NUM, EOLN, AND EOF. 

ASSUME THE FOLLOWING DECLARATION HAS BEEN MADE: 

VAR CH : CHAR; NUM : INTEGER; 



2. RESET (INPUT) 












: J : A : N : E 


■ 
m 


3 


B 
■ 


EOLN: 
















s T ! I : ! 1 


M 


2 


m 
m 


EOLNs 
















: 4 : 3 ! ■" N 


■ 





m 


EOLN: 


EOF! 


3. READ(CH)? 












: J : A : N s E 


m 
■ 


3 


m 
m 


EOLNS 




A 












: T : I : si 


: 


2 


i 


EOLNs 
















: 4 : 3 : : N 


• 





m 
a 


EOLNS 


EOF! 


4. READ (NUM) 












: J : A s N ! E 




3 


■ 
• 


EOLNS 






y^ 










: T : I : : 1 


m 
m 


2 


■ 


EOLN! 
















: 4 : 3 : s N 


■ 

N 





: 


EOLN! 


EOF: 


5. READLN 












: J : A s N s E 


! 


•— * 


m 
m 


EOLN: 




.'•. 












: T : I 5 : 1 


= 


2 


m 
m 


EOLN: 
















: 4 : 3 : : N 


: 





m 
m 


EOLN! 


EOF: 



EOLN = 



EOF = 



CH = 



EOLN = 



EOF = 



NUM = 



EOLN = 



EOF = 



EOLN = 



EOF 
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A. READ (CH) 

: J s A : N s E : 3 : EOLN: CH == 

EOLN 

: T : I : : 1 : 2 : EOLN: 

EOF = 



4:3! s N : : EOLN: EOF: 



7. GIVEN VAR CH : CHAR? 

WRITE AN IF-THEN-ELSE TO READ CH IF THE END OF LINE HASN'T BEEN 
REACHED, AND IF IT HAS, DO A READLN TO POSITION THE FILE POINTER 
TO THE FIRST OF THE NEXT LINE. 
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WFvTTE STATEMENT 



YNTAX: WRITE ( FILENAME, XI, .,., XN) WRITES TO FII..E NAME GIVEN 
WRITE <X1, ..., XN) WRITES TO DEFAUET "OIITPOT-- 

X AMPLE: PRINT OUT VALUES OF SIJMI. AND SUM2 ON ONE l.JNE TO THE DEFAULT 
FILE --OUTPLIT- 

WRITE (SUM J, SUM2); 

OR 

WRITE (SUM:!.)? 
WRITE (SUM2); 

CONSECUTIVE WRITES CONTINUE TO WRITE Oil TUE SAME ! [NE 



nEFAUi..,T FIEL.n WIDThi; INTFiliERS •- 10 

REALS ■■" I'-'J (!"(<=' 8 I ? ri f' €! FM" A fi t '- ',' if' [::. t :'' \ 
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WRITING comments: COMMENTS MAY BE WRITTEN BY ENCLOSING IN APOSTROPHES 

EXAMPLE." WRITE ('WEEKLY SALES REPORT') 

RESULTS IN 

WEEKLY SALES REPORT 

WRITE <N1, -• TOTAL ISS N2) 

FOR Nl = 1, N2 = 52 
RESULTS IN 

1 TOTAL IS 52 

**NOTE: REMEMBER THE APOSTROPHE IS REPRESENTED BY ^ ■' 
WRITELN STATEMENT 



- TERMINATES A LINE 



SYNTAX: WRITELN (F, XI, . . . •, XN) 

WRITES XI, . . ., XN AND TERMINATES THE LINE 

WRITELN WRITES FROM FILE 'OUTPUT' 

TERMINATES THE LINE WITHOUT WRITING ANYTHING 

EXAMPLES: WRITELN (SUMl, SUM2); 

SUMl AND SUM2 WILL BE WRITTEN ON ONE LINE TO THE DEFAULT 
FILE 'OUTPUT' AND THE LINE WILL BE TERMINATED 



WRITELN <SUM1) 
WRITELN (SUM2) 

WRITES SUMl AND SUM2 ON DIFFERENT LINES 

WHILE CH O ' ' DO 
BEGIN 

READ (CH); 
WRITE (CH) 

END; 

WRITELN; 



CONTINUES WRITING ON SAME LINE UNTIL CH IS A BLANK 
THEN GOES TO THE NEXT LINE. 
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SUMMARY 



A VALUE OF TYPE CHAR IS A CHARACTER. THE CHARACTER SET IS 
DEPENDENT ON THE MACHINE. A CHARACTER IS REPRESENTED AS A NUMBER 
INSIDE THE MACHINE WHICH RECOGNIZES THAT NUMBER AS A CODE FOR 
THAT PARTICULAR CHARACTER. A NUMBER SUCH AS 5 IS NOT REPRESENTED 
IN THE SAME WAY AS THE CHARACTER 5. 

CHARACTERS MAY BE WRITTEN AS A SINGLE CHARACTER SURROUNDED BY 
APOSTROPHES OR AS A # SIGN FOLLOWED BY ITS 2 DIGIT HEXADECIMAL 
CHARACTER CODE. 

A TEXTFILE IS A FILE OF CHARACTERS DIVIDED LOGICALLY INTO LINES. 
SEVERAL TYPES MAY BE WRITTEN TO OR READ FROM A TEXTFILE. 

PASCAL PROVIDES DEFAULT FILES -INPUT-' AND -OUTPUT^. ON THE 990 
THE FILES TO BE ASSIGNED TO 'INPUT' AND 'OUTPUT' MUST BE 
SPECIFIED WHEN GIVING THE SCI COMMAND 'XPT-' TO EXECUTE THE PASCAL 
PROGRAM. 

THE READ STATEMENT --READ (FILENAME, XI, . . , XN) WILL READ ONE 
OR MORE VALUES FROM FILE ' F I LEN AME •- . IF NO FILE IS SPECIFIED, 
•'READ (XI, . . , XN) THE FILE ASSIGNED TO -'INPUT' IS ASSUMED. 

THE RESET STATEMENT OPENS A FILE AND POSITIONS IT TO THE BEGIN- 
NING. A RESET STATEMENT MUST BE EXECUTED BEFORE READING FROM 
A FILE. THE DEFAULT FILE ' INPUT' MUST BE SPECIFIED IN THE 
RESET STATEMENT. 



THE WRITE STATEMENT WRITE (FILENAME, XI, . . , XN) WRITE ONE 
OR MORE VALUES TO THE FILE •'FILENAME'. CONSECUTIVE WRITE STATE- 
MENTS WRITE ON THE SAME LINE. COMMENTS MAY BE WRITTEN OUT BY 
ENCLOSING THEM IN APOSTROPHES. 



THE WRITELN STATEMENT FINISHES WRITING A LINE. THE NEXT WRITE 
WILL BEGIN ON A NEW LINE. 



THE REWRITE STATEMENT OPENS A FILE FOR OUTPUT. FILES OTHER THAN 
THE DEFAULT FILE •'OUTPUT' MUST BE OPENED BEFORE BEING WRITTEN TO. 
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WORKSHEET 5 



WRITE NUMl, NLIM2, NUM3 ON ONE LINE 



USING 1 STATEMENT: 
USING 3 STATEMENT: 



WRITE -QUARTERLY REPORT' 



4. WRITE A STATEMENT WHICH WILL WRITE OUT THE WORD -NAME- AT THE END 
A LINE AND THEN BEGIN A NEW LINE. 



5. GIVEN THE FOLLOWING CODE SHOW THE OUTPUT 

VAR, X, Y: INTEGER 
X := 5? 
Y := 10; 

WRITE (X); 
WRITE (Y); 
WRITELN! 
WRITE (X, Y); 
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SIMPLE PROCEDURES 



OBJECTIVES 

STUDENTS SHOULD BE ABLE TO DECLARE AND UTILIZE PROCEDURES TO 
PERFORM SPECIFIED OPERATIONS ON A SET OF PARAMETERS. 

STUDENTS SHOULD BE ABLE TO DECLARE A FUNCTION. 

STUDENTS SHOULD BE ABLE TO SPECIFY WHETHER A VARIABLE IS GLOBAL 
OR LOCAL TO A ROUTINE. 

STUDENTS SHOULD BE ABLE TO PASS PRARMETERS BY ■- VALUE' AND 
"REFERENCE-'. 



AGENDA 



1. SIMPLE PROCEDURES 

- SYNTAX 

- PARAMETER PASSING 

2. SCOPE OF VARIABLES 

- GLOBAL 

- LOCAL 

3. PROCEDURE ACCESSING RULES 

4. FUNCTIONS 
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SIMPLE PROCEDURES 



PASCAL PROCEDURES ARE FUNCTIONALLY VERY SIMILAR TO FORTRAN 
SUBROUTINES. 



PURPOSE: TO PERFORM A SET OF PREDEFINED OPERATIONS ON A SET 
OF PARAMETERS. 



example: 

PROGRAM TESTPROC; 

VAR VALl, VAL2 : INTEGER; 
RESULT : LONG I NT; 

PROCEDURE ADDUP ( X, Y : INTEGER; VAR 2 : LONG I NT ); 

VAR TEMP : LONG I NT; 

BEGIN (» ADDUP #) 
TEMP := X+Y; 
IF TEMP < THEN 
Z := 

ELSE 

Z := TEMP 
END; (* ADDUP #) 

BEGIN (* TESTPROC *) 
RESET ( INPUT ); 
WHILE NOT EOF DO 
BEGIN 

READ ( VALl, VAL2 ); 

ADDUP ( VALl, VAL2, RESULT ); 

IF RESULT <> THEN 

WRITELN ( -■ RESULT IS : ', RESULT ) 
ELSE 

WRITELN( •■ RESULT IS < - ); 
READLN 
END 
END. (■«■ TESTPROC *) 



19. 



PASCAL PROGRAM SYNTAX 

PROGRAM < PROG. NAME >? 

<: LABEL DECLARATIONS >? 

< CONSTANT DECLARATIONS >; 

< TYPE DECLARATIONS >; 

< VARIABLE DECLARATIONS >; 

< COMMON DECLARATIONS >; 

< ACCESS DECLARATIONS >! 

< PROCEDURE AND FUNCTION DECLARATIONS >; 

BEGIN 

C BODY OF PROGRAM ( BLOCK ) ] 
END. 



PASCAL PROCEDURE DECLARATION SYNTAX 

PROCEDURE < PROCEDURE NAME > C < < PARAMETER LIST > ) li 
C DECLARATIONS 2 
BEGIN 

Z BODY OF PROCEDURE ( BLOCK ) ] 
END; 



13 



F '■ • r. E D U P E F' A R A hi E T F R s 



p'nr^MAi r-'ARAKFTFR 



Ti if;:-" 


■ rr c- j"'- rr p T \' 


"' J 


FTj 


IN THE F-vji ( 


T' ' {C 


■' F i ') R M !-< i . 




! rii i 


rlMY ) PARAi-ir- 


VAI.J... 


ifT ijE Ti ;;■ 


™ 


■'AR 


TijAL ■■" FA:''f rf 


':■•■'' EC 


:iFrFD Ti 


-1 


M r' 


:":i)CEnij:'';F r Aj 






ART'lAL PARAMETERS 
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ACTUAL VS FORMAL PARAMETERS 

ACTUAL ( CALLING ) PARAMETERS - THOSE APPEARING IN A PROCEDURE CALL 

FORMAL ( DUMMY ) PARAMETERS - THOSE APPEARING IN THE PROCEDURE 

DEFINITION 



##RULE: CORRESPONDING ACTUAL AND FORMAL PARAMETERS MUST BE OF 
EXACTLY THE SAME TYPE. ( THERE IS ONE EXCEPTION 
TO THIS RULE TO ALLOW FOR VARIABLE SIZE ARRAYS ) 



EXAMPLE: 

VAR X : ARRAY C 1..10 1 OF INTEGER; 
VAR Y : ARRAY C 0..9 D OF INTEGER; 



HERE, X AND Y ARE NOT COMPATIBLE AS MATCHING ACTUAL AND 
FORMAL PARAMETERS SINCE THEY DO NOT START AND END WITH THE 
SAME INDICES. 



EXAMPLES 

PROGRAM TEST; 

VAR I, J : REAL; 

PROCEDURE ONE < X : REAL; VAR Y : REAL ); FORMAL FARMS 
BEGIN (* ONE *) 
END; (* ONE *) 
BEGIN (* TEST *) 

ONE < I , J ) ; ACTUAL FARMS 

END. (* TEST *) 
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■'VAR' FORMAL PARAMETERS < CALLED BY REFERENCE ) 



WHEN A VALUE IS ASSIGNED TO A -VAR' PARAMETER, THE CORRESPONDING 
ACTUAL PARAMETERS VALUE IS CHANGED ALSO. 

THIS ALLOWS COMPUTED VALUES TO BE RETURNED TO THE CALLING ROUTINE. 



FORMAL PARAMETERS WITH NO -'VAR' ( CALLED BY VALUE ) 



A COPY OF THE ACTUAL PARAMETER IS MADE FOR USE IN THE PROCEDURE. 

IF A -VALUE" PARAMETER IS CHANGED, ONLY THE COPY IS CHANGED AND 
THE CORRESPONDING ACTUAL PARAMETER DOES NOT CHANGE. 



example: 



PROGRAM 
MEMORY 



VALl 
VAL2 
RESULT 



AAAA 



BBBB 
CCCC 



AAAA 



BBBB 



X 
Y 



PROGRAM FARMS; 

VAR VALl, VAL2, RESULT : INTEGER; 

PROCEDURE TEST ( X, Y : INTEGER; 

VAR Z : INTEGER ); 



END; (# TEST *) 
BEGIN (» PARMS *) 

TEST ( VALl, VAL2, RESULT ); 

END. (# PARMS #) 
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FILL IN THE SPACES IN THE COMMENTS. RESPOND WITH THE VALUE OF 

THE VARIABLE AT THE POINT WHERE THE COMMENT APPEARS IN THE PROGRAM. 



PROGRAM TEST; 

VAR A, B : INTEGER; 

PROCEDURE AD< X : INTEGER; VAR Y : INTEGER ); 
BEGIN (# AD *) 
Y := X + Y; 
END; (* AD *) 



EG IN 


(# 


TES 


;:T 


#) 


A ! 


= 


14; 






B ! 


■"■ J 


2; 






AD( 


A: 


- B 


); 




(» 








??? 


AD< 


B. 


, A 


); 




(* 








•r.*-i'-i 



A = , B = 

*) 



A = , B = 

ft) 
END. (* TEST ft) 
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2. GIVEN THE FOLLOWING PROGRAM, SPECIFY WHICH OF THE CALLS TO THE 
PROCEDURE 'HELP-- ARE LEGAL. 

#* DON-'T WORRY ABOUT WHAT THE PROCEDURE DOES! ! i ! ! ** 



PROGRAM TEST; 

TYPE NEW = ARRAY C 11.. 2G ] OF INTEGER; 

VAR A : ARRAY C 1..10 1 OF INTEGER; 

B : INTEGER; 

C : LONGINT; 

D : new; 



); 



PROCEDURE HELP ( 


VAR 


X 
Y 


: NEW; 

: LONGINT 


VAR MAX : INTEGER; 






BEGIN (* HELP 
MAX := X C 
FOR I := 1 
IF MAX 
MAX 
X != MAX 
END; (# HELP 


#) 

11 1 
2 TO 
=: X C 
:= X 

*) 


■ 
7 

20 
I 
C ] 


DO 

] THEN 

3; 



BEGIN (* TEST *) 

FOR I s= 1 TO 10 DO 

READ (ACID ) ; 
FOR I := 11 TO 20 DO 

READ ( A C I 3 ); 

(» A *> HELP ( B» C, A ) 

(» B *) HELP ( B. A >; 

(# C *) HELP ( A, B ); 

(* D *) HELP ( D, C ); 

(* E *) HELP ( A, C ); 

END. <* TEST *) 



(♦ Y 


N 


: WHY 


(* Y 


N 


: WHY 


(* Y 


N 


: WHY 


(# Y 


N 


: WHY 


(» Y 


N 


: WHY 



#) 
#) 
») 
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SCOPE OF VARIABLES 



GLOBAL VARIABLES - ACCESSIBLE FROM ANYWHERE IN THE PROGRAM. 

- GLOBAL VARIABLES MUST BE DECLARED AT THE 
•' PROGRAM •- LEVEL. 



LOCAL VARIABLES - ACCESSIBLE INSIDE THE PROCEDURE IN WHICH THEY 

ARE DECLARED. 



EXAMPLE 

PROGRAM SCOPE; 

VAR X, Y : INTEGER; 
PROCEDURE ONE ( Q : INTEGER ); 
VAR A ! INTEGER; 
BEGIN (* ONE *) 

] (* X, Y, A ARE ACCESSIBLE *) 

END; (» ONE *) 
BEGIN (* SCOPE *) 

! (* X, Y ARE ACCESSIBLE *) 

END. C» SCOPE #) 



##NOTES: 

- A IS SAID TO BE LOCAL TO THE PROCEDURE -ONE' 

- X AND Y ARE GLOBAL VARIABLES 
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EXAMPLE 

PROGRAM SCOPE l; 

VAR X, Y : INTEGER? 
PROCEDURE ONE < Q s INTEGER ); 

VAR A : INTEGER; 
PROCEDURE TWO ( R : INTEGER ); 
VAR B : INTEGER; 
BEGIN (# TWO *) 

(* X, Y, B ARE ACCESSIBLE *) 

■ 

END; (* TWO ») 
BEGIN (* ONE *) 

(# X, Y, A ARE ACCESSIBLE ») 
END; <» ONE *) 
PROCEDURE THREE ( S : INTEGER ); 
VAR C ! INTEGER; 
BEGIN (* THREE *) 

■ 

N 
■ 

END; (» THREE *) 
BEGIN (* SCOPE 1 *) 

■ 
■ 
s 

END. (♦ SCOPE 1 *) 



(» X, Y, C ARE ACCESSIBLE •»•) 



(* X, Y ARE ACCESSIBLE *) 



NOTE: SPACE FOR LOCAL VARIABLES IS ALLOCATED WHEN THE PROCEDURE 
IS CALLED, AND THE SPACE IS RELEASED WHEN THE PROCEDURE 
IS EXITED. 
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DUPLICATING VARIABLE NAMES 



**RIJLE: IF A VARIABLE IS DECLARED IN A PROCEDURE WHICH HAS 

THE SAME NAME AS A VARIABLE WHICH IS GLOBAL TO THAT 

PROCEDURE, THE NEWLY DECLARED VARIABLE WILL BE -ACTIVE- 
UNTIL THE PROCEDURE IS EXITED. 



EXAMPLE: 

PROGRAM TEST; 

VAR I : INTEGER; 
PROCEDURE A ( . . ) ; 
VAR I : REAL; 

* HERE I IS REAL 
PROCEDURE B < . . ) ; 

VAR I : BOOLEAN; 

* HERE I IS BOOLEAN 



# HERE I IS INTEGER 
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*»RULE: IF A FORMAL PARAMETER IS DEFINED WHICH HAS THE SAME 
NAME AS A VARIABLE WHICH IS GLOBAL TO THE PROCEDURE, 
THEN THE FORMAL PARAMETER IS 'ACTIVE' AND THE GLOBAL 
VARIABLE IS NOT -ACTIVE'- 



EXAMPLE: 



PROGRAM TEST; 

VAR I : INTEGER; 
J : REAL; 

— PROCEDURE ONE ( I : REAL )" 



* I TAKES ON THE VALUE OF J AT THE TIME 
OF THE CALL. THE VALUE OF THE GLOBAL 
VARIABLE 'I-- IS NOT AFFECTED. 



END; (* ONE *) 

BEGIN <» TEST *) 

ONE ( J ) ; 

END. (# TEST *) 



n 
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ACCESSIBILITY OF PROCEDURES 

THE ORDER IN WHICH PROCEDURES ARE DEFINED AND THE 'LEVEL'- AT 
WHICH THEY ARE DEFINED WILL DETERMINE WHICH OTHER PROCEDURES MAY 
CALL THEM. 

** A PROGRAM OR PROCEDURE MAY CALL ITSELF 

** A PROCEDURE MAY CALL ANOTHER PROCEDURE WHICH IS DEFINED WITHIN IT 
PROGRAM T 

PROCEDURE A 
PROCEDURE B 
PROGRAM T MAY CALL ITSELF, PROCEDURE A, AND PROCEDURE B. 



** A PROCEDURE MAY CALL ANOTHER PROCEDURE AT THE SAME LEVEL IF IT 
HAS ALREADY BEEN DEFINED. 

PROGRAM T 

PROCEDURE A 

PROCEDURE B 

PROCEDURE C 

PROCEDURE C MAY CALL ITSELF, PROCEDURE A, PROCEDURE B, 

AND PROGRAM T 

PROCEDURE B MAY CALL ITSELF. AND PROGRAM T, PROCEDURE A 



j>3 



FUNCTIONS 



PURPOSE: 



TO RETURN A SINGLE VALUE AS THE RESULT OF OPERATING 
ON A SET OF PARAMETERS. 

FUNCTION CALLS MAY BE USED IN AN EXPRESSION SINCE THE 
FUNCTION NAME TAKES ON THE VALUE WHICH IS RETURNED BY 
THE CALL. 



SYNTAX: 



.FUNCTION < FUNC. NAME > C ( < PARAMETER LIST > ) 3 : < TYPE >? 
C DECLARATIONS ] 
BEGIN 

C BODY OF FUNCTION ( BLOCK ) 1 
END; 



rules: 



< TYPE > MAY BE 

INTEGER SUBRANGE 

LONG I NT REAL 

BOOLEAN FIXED 

CHAR DECIMAL 

SCALAR POINTER 



- THE NAME OF THE FUNCTION MUST APPEAR ON THE LEFT OF AN 
ASSIGNMENT AT LEAST ONCE IN THE BODY OF THE FUNCTION. 



- THE LAST VALUE ASSIGNED TO THE FUNCTION NAME IS THE VALUE 
RETURNED BY THE FUNCTION. 



**N0TES: 



ALL VARIABLE SCOPE RULES ARE THE SAME FOR FUNCTIONS 
AS THEY ARE FOR PROCEDURES 

THE FUNCTION ACCESS RULES ARE THE SAME FOR FUNCTIONS 
AS THEY ARE FOR PROCEDURES 



Si 



EXAMPLE: 



* » 
» FUNCTION title: POWER * 

* * 
» FUNCTION AUTHOR: JOSEPH PRO GRAMMER * 

» PURPOSE: TO RAISE A REAL NUMBER TO AN INTEGER » 

* POWER AND RETURN THAT REAL VALUE AS * 

* THE VALUE OF THE FUNCTION # 

* * 

* FORMAL PARAMETERS: * 

* * 

* RVAL - REAL NUMBER TO BE RAISED TO AN INTEGER POWER # 

* * 

* EXPON - INTEGER POWER * 



» 



♦ 



# 



* * 

* CONSTRAINTS: IT IS ASSUMED THAT THE INTEGER POWER # 

* IS A POSITIVE INTEGER. * 

* * 

* * 
*•»*****#****#*#•»***♦*****«#♦***♦***•»•*♦***************♦*******) 

FUNCTION POWER ( RVAL : REAL; 

EXPON : INTEGER ) : REAL? 

VAR TEMP : REAL; 

BEGIN (» POWER ») 

TEMP := l; 

FOR I := 1 TO EXPON DO 

TEMP := TEMP * RVAL; 

POWER ;= TEMP 
END; <* POWER #) 



SAMPLE CALL: 

NEWVAL := 37.6 + POWER ( X, NUM ) * 3; 



^ 



SIDE EFFECTS IN FUNCTIONS 



DEFINITION: A SIDE EFFECT IS THE CHANGING OF A VALUE OF ANY VARIABLE 
WHICH IS NOT LOCAL TO THE FUNCTION. 



TI PASCAL HANDLING OF SIDE EFFECTS 



THE TIP COMPILER WILL NOT ALLOW THE USER TO DO THINGS WHICH 
COULD CAUSE SIDE EFFECTS TO OCCUR. TO PREVENT THEM THE FOLLOWING 
RULES APPLY: 



THE LEFT-HAND SIDE OF AN ASSIGNMENT STATEMENT OCCURRING IN 
A USER DEFINED FUNCTION MAY NOT CONTAIN: 



A VARIABLE DECLARED EXTERNAL TO THE FUNCTION ( GLOBAL ) 

A VARIABLE PARAMETER OF THE FUNCTION ( MAKING 'VAR'' USELESS ) 

A COMMON VARIABLE ACCESSED WITHIN THE FUNCTION 

A POINTER VARIABLE FOLLOWED BY @ 

-IN ADDITION, USER DEFINED FUNCTIONS MAY NOT CONTAIN 



PROCEDURE STATEMENTS INVOLVING USER DEFINED PROCEDURES 

OR THE STANDARD PROCEDURES -READ', -NEW-, OR -DISPOSE' 

CALLS TO EXTERNALLY DEFINED FUNCTIONS 

@ IN A RECORD VARIABLE USED IN THE HEADING OF A WITH 
STATEMENT 

O PROCEDURES OR EXTERNALLY DEFINED FUNCTIONS AS PARAMETERS 



THE FOLLOWING MAY ONLY BE USED WITH ARGUMENTS WHICH ARE LOCAL 
TO THE FUNCTION. 



ENCODE 


DECODE 


RESET 


REWRITE 


PACK 


UNPACK 
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SIDE EFFECTS EXAMPLE 



PROGRAM SI DEEP; 



FUNCTION SQ ( VAR A : REAL ) : REAL; 

BEGIN (* SQ #) 

A != a#a; 

SQ := A 
END? (» SQ *) 

BEGIN (* SIDEEF *) 
X := 5! 

Y := X + SQ( X ); (* Y = 30 *) 
X s — 5* 

Y != SQ< X ) + X (» Y = 50 *> 
END. (» SIDEEF *) 



V 



MODOy 



ASSIGNMENT 1 



OBJECTIVES: 

- TO BE ABLE TO CREATE AND RUN A PASCAL PROGRAM ON THE DX SYSTEM 

- TO USE A WHILE-LOOP, IF STATEMENT AND INPUT/OUTPUT STATEMENTS 
AND ASSIGNMENT STATEMENTS IN WRITING A PASCAL PROGRAM. 

- TO CREATE AND USE A DATA FILE. 

- TO BE ABLE TO WRITE AND CALL PROCEDURES. 

A series of sonar tests uere made in the Pacific ocean at 
various locations. Sound was emitted from a sonar, bounced off 
the ocean floor, and mas 'heard' bv a receiver. the time the 
sound took to travel from the generator to the receiver was 
recorded on the file PASCAL. DATA. DATAl . 

lA Read in each travel time. 

Echo print each number as it is being read in. 
Output one number per line along uith a message. 

Write program lA without using procedures. The purpose is to 
give YOU some experience in using PASCAL and in running a 
PASCAL program using the DXIO operating svstem. 



jl 



IB Read in each travel time and echo print with a message about which 
test uas takins place. 
Find the maximum and minimum travel time and print them out uiith 
a message. It is not necessary to use arravs to do this. 

■ IMPLEMENT THIS PROGRAM BY WRITING TWO PROCEDURES: 

READ-ECHO : Reads in a value for the depth and echo prints with 
a message 

DETERMINE_riAX_AND_MIN : Compares the number Just read in to MAX. 
If the number is larger than MAX? reset MAX. 
If not larger than MAX. compare to MIN. If smaller 
than MIN, reset MIN. 

PARAMETERS : MAX, MIN, and NUM. 

YOUR MAIN PROGRAM SHOULD DO THE FOLLOWING: 

Reset the data file 

Call READ_ECHO to read in first travel time 

Initialize variables for max and min to first travel time 

Do the following until you reach the end-of-file 

call READ-ECHO 

call SET_MAX_AND_MIN 
Print out the maximum and minimum travel times 

IC Add a function to Your program IB to calculate the ocean depth 
at the location of a test. 

use the following formula : 

( TRAVEL TIME ) * ( 5000 FT/SEC ) 



DEPTH = 



YOUR PROGRAM SHOULD DO THE FOLLOWING : 

Read in each travel time and echo print. 

Calculate the ocean depth for each test. Output this with 

a message. 
Find the maximum and minimum depths. Write these out with 

a message. 
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COMPILER OPTIONS 



THERE IS A SET OF OPTIONS FOR THE PASCAL COMPILER WHICH MAY BE 
USED TO: 

SPECIFY CONTENT OF COMPILED LISTING 
CONTROL CONTENT OF COMPILED OBJECT 
CONTROL RUNTIME CHECKS 



SPECIFYING OPTIONS 

OPTIONS ARE SPECIFIED IN SPECIAL COMMENTS 

SYNTAX: 

(** <:OPTION>, <OPTION> . . . *) 

WHERE, 

<OPTION> - CNO: COPT I ON NAME> 

OR [RESUME] <:OPTIONNAME> 

example: 

(»$N0 LIST, MAP, RESUME CKOVER *) 

SEMANTICS: 

<OPTION> - OPTION BECOMES TRUE 

NO <OPTION> - OPTION BECOMES FALSE 

RESUME <OPTION> - OPTION IS SET TO THE VALUE IT HAD WHEN 

THE ROUTINE (PROGRAM) WAS ENTERED 



SCOPE OPTIONS 

OPTION COMMENTS ARE EFFECTIVE WITHIN THE SCOPE OF THE ROUTINE OR 
PROGRAM IN WHICH THEY OCCUR 

IF AN OPTION IS CHANGED IN A ROUTINE, IT WILL TAKE ON THE VALUE 
BEFORE IT WAS CHANGED WHEN THE ROUTINE IS EXITED. 

( I.E. YOU GET A NEW COPY OF THE OPTIONS WHEN A ROUTINE IS 
ENTERED ) 



CHANGING OPTION VALUES 



PROGRAM LEVEL OPTIONS 



- MAY ONLY BE CHANGED BEFORE THE --PROGRAM' STATEMENT 



ROUTINE LEVEL OPTIONS 



MAY BE CHANGED 

BEFORE THE 'PROGRAM' STATEMENT 

RIGHT BEFORE THE -BEGIN' STATEMENT 

FOR THE BODY OF THE PROGRAM OR ROUTINE. 
RIGHT AFTER THE 'BEGIN' STATEMENT FOR 

THE BODY OF A ROUTINE. 



STATEMENT LEVEL OPTIONS 



- MAY BE CHANGED ANYWHERE IN THE PROGRAM 



?/ 



LIST CONTROL OPTIONS- 



LIST < STATEMENT - TRUE) 



- ENABLES OR DISABLES PROGRAM SOURCE LISTING 
~ WHEN SET TO FALSE, ONLY LINES WITH ERRORS AND THE 
ERROR MESSAGES ARE PRINTED 



W I DEL I ST (PROGRAM - FALSE) 



ENABLES OR DISABLES SOURCE LINE NUMBER AND COMPOUND 
STATEMENT NUMBERS 



MAP (ROUTINE - FALSE) 



ENABLES OR DISABLES A -MAP' OF THE VARIABLES DEFINED 
m THE ROUTINE 



#*NOTE: THIS IS USEFUL WHEN ATTEMPTING TO READ AN ERROR DUMP OR 
STACK AND HEAP MEMORY 



MAP INFORMATION 

IDENTIFIER NAME 

KIND — VARIABLE, PARAMETER, ETC. 

SIZE — IN BYTES AND BITS 

STACK DISPLACEMENT 

PICTURE— WHERE DATA IS STORED, FOR PACKED FIELDS ONLY 



.U 



ASSERTS (STATEMENT - TRUE) 



ENABLES OR DISABLES RECOGNITION OF ASSERT STATEMENTS IN A 
PROGRAM 



ASSERT STATEMENT 



purpose: to GENERATE A RUNTIME ERROR IF A SPECIFIED 
BOOLEAN CONDITION IS FALSE. 

SYNTAX: 

ASSERT <BOOLEAN EXPRESSION> 

SYMANTICS: 

- IF <BOOLEAN EXPRESSION> IS TRUE, THEN CONTINUE EXECUTION 
OF PROGRAM 

- IF CBOOLEAN EXPRESS I 0N> IS FALSE, THEN GENERATE A RUNTIME 
ERROR. 

MEMORY DUMPS 

THE CONTENTS OF THE STACK WILL BE PRINTED OUT WHEN 

- A RUNTIME ERROR OCCURS 

- AN " ASSERT •- STATEMENT IS FALSE 

THE COMPILER OPTION (#* MAP ♦) MUST BE USED 



? 
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nXPSCL 1.5.0 78.317 TI 990 PASCAL COMPILER 01/05/79 10:53:1 

PROGRAM DUMP..- IT; 
<*$ MAP, ASSERTS *) 

VAR COUNTER, hJUM, SUM : INTEGER; 

PROCEDURE SUM_IT ( VAR SUM : INTEGER; 

NUM : INTEGER ) ; 

BEG I N 

SUM := SUM + NUM 
END; <* 3LIM_IT #) 

MAP OF IDENTIFIERS FOR SUM_IT 

IDENTIFIER NAME KIND SIZE STACK PICTURE 

(BYTES, BITS) DISPLACEMENT (PACKED FIELDS ONLY) 
LEVEL (DISPL) (BYTE, BIT) 

SUM PARAMETER (2,0) #0028 INDIRECT 

NUM PARAMETER (2,0) #002A DIRECT 

PROCEDURE READ-ECHO ( VAR NUM : INTEGER ) ; 
BEGIN 

READ ( NUM ); 

WRITELN ( •THE NUMBER READ IS -■ , NUM); 
END; (» READ_ECHO ») 

MAP OF IDENTIFIERS FOR READ_ECH 

IDENTIFIER NAME KIND SIZE STACK PICTURE 

(BYTES, BITS) DISPLACEMENT (PACKED FIELDS ONLY) 
LEVEL (DISPL) (BYTE, BIT) 

NUM PARAMETER (2,0) #0028 INDIRECT 

(# MAIN ») 
BEGIN 

RESET ( INPUT ); 
SUM := 0; 
COUNTER := 0; 
WHILE NOT EOF DO 

TF NOT EOLN THEN 
BEGIN 

READ_ECHO ( NUM ) ; 
COUNTER := COUNTER + 1; 
SUM- IT ( SUM, NUM ); 
END 
ELSE readln; • 
ASSERT COUNTER = 100; 

WRITELN (-THE NUMBER OF INTEGERS READ WAS ■- , COUNTER); 
WRITELN (•THE FINAL SUM WAS •• , SUM); 
END. 

MAP OF IDENTIFIERS FOR DUMP- IT 

IDENTTFIER NAME KIND SIZE STACK PICTURE 

(BYTES, BITS) DISPLACEMENT (PACKED FIELDS ONLY) 
LEVEL ( D I SPL ) ( BYTE , B I T ) 

COUNTER VARIABLE (2,0) #0080 DIRECT ^ 



NIJM 
SUM 



VARIABLE 
VARIABLE 



(2,0) 
(2,0) 



#0032 
#0084 



DIRECT 
DIRECT 



MAXIMUM NUMBER OF IDENTIFIERS USED = 11 



INSTRUCTIONS = 4 (LESS 

SUM„IT LITERALS = 

INSTRUCTIONS = 23 (LES? 

READ_ECH LITERALS = 

INSTRUCTIONS = 73 (LESS 

DUMP- IT LITERALS = 



WORDS OF DEAD CODE REMOVED) 
14 CODE = 13 DATA = 44 

WORDS OF DEAD CODE REMOVED) 
40 CODE = 104 DATA = 42 

WORDS OF DEAD CODE REMOVED) 
94 CODE = 312 DATA = 134 



DXPSCL 



1 



78.317 



TI 990 PASCAL COMPILER 



01/05/79 10: 
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READ 


T ■' 
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READ 
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READ 
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"ASSERT" FAILED AT STATEMENT 1: 



•*•«••«■ DUMP OF PROCESS »■«•* 



PROC 
SPEC 
5FFi: 
6OO1: 

60 n: 



ESS RECORD FOR DUMP_IT 
(0000) 4E4A 5B6A 5C1A FFOO 
(0010) FFOO FFOO FFOO FFOO 
(0020) FFOO 5C1A 1594 C18F 
(0030) 5DD0 5FEA 0000 0000 



FFOO 


FFOO 


FFOO 


FFOO 


(N.JC.\ 


FFOO 


FFOO 


FFOO 


FFOO 


( 


4E4A 


8000 


0000 


5B68 


( . . \ NJ C. 


5710 


56FS 


0300 




(]._ W.V. . . 



TOP OF STACK 

5C42 (0000) 0300 0000 OOOD 0000 0020 00 IE 00<I)0 52A<I) 



5C52 
5C62 
5C72 
5C82 
5C92 
5CA2 



(0010) 
( 0020 ) 
( 0030 ) 
( 0040 ) 
( 0050 ) 
( 0060 ) 



56F8 5C42 5C6C 00B2 5FEC 52A0 2772 C13F 



36DE 31SF 0000 368C 
0020 5C44 0000 5C4A 
0000 0000 0033 0031 
5C46 26BE DISF 5C86 
21BA C18F 0050 0001 



0000 258F 5B40 5AD2 
5B40 00 IF 0000 00 IF 
5C7S 5CA2 2A86 5FEC 
00 ID 0000 5FEC 5B40 
0000 5420 5C9C 5CC8 



5CB2 (0070) 260C 5FEC 50 1 A 3C24 318F 0000 0000 FFFF 

DATA AREA FOR HALT* LEVEL=2 

5C1A (0000) FFFE FFFF 5420 2020 0001 0050 0001 5720 
5C2A (0010) 0001 5C1A 5C42 OOCC SPEC 5BF0 4B28 D18F 
5C3A (0020) 4EBA 5BF0 4B23 5C5E 

DATA AREA FOR ASSER* LEVEL=2 

5BF0 ( 0000 ) 5F6A 0000 0000 0000 0C)00 5BCA FFFE 5C20 
5C00 (0010) 5BE0 5BF0 5C1A 15S4 5FEC 5B6A 4706 5B6A 
5C10 (0020) 0000 0000 FFFF 0000 OOOD 



(V.\B\ R. ••. . . 

(6. 1. . .6. . .7.. C@Z. 
(. \D..\JC(a 

\ a a ■ M aOa J. \a Xa'^a— ■ 

(\FS<. . .\ _.C@ 

\ .aaaalatiaB 1 \b \« 

(?<._. \ .<$ 1 , 



^«BNbI BBB"Ba t^ 

(. .\.\B C.K(. . 

(N. C.K(\-- 



(C. C. \, 
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B a L a ■ ■ \ 
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DATA 


AREA FOR DUMP- IT 


LEVEL=1 












5B6A 


( 0000 ) 


5F6A 


0000 


0000 


0000 


0000 


0000 


0000 


39B6 


( 


.9. 


5B7A 


(0010) 


5C20 


5B6A 


5BF0 


4A9E 


SBCA 


5B52 


03C3 


013F 


(\ C.C.J.L'.CR 


a a B 


5B8A 


( 0020 ) 


0000 


5B52 


03C8 


0000 


0000 


0000 


0000 


0000 


(. . CR. ... 


a a B 


5B9A 


( 0030 ) 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


( 


« B B 


5BAA 


( 0040 ) 


5BAA 


0011 


004F 


5AD2 


0141 


0001 


0050 


5B40 


(C. .4.0Z. .A. . 


.PC«3 


5BBA 


( 0050 ) 


4F55 


5450 


5554 


2020 


000 1 


0100 


0000 


OC'OO 


( OUTPUT 


■ a a 


SBCA 


( 0060 ) 


SBCA 


0000 


FFFE 


5A44 


0341 


0002 


(")050 


5AAA 


(C ZD.A. . 


PZ. 


5BDA 


( 0070 ) 


494E 


5055 


5420 


2020 


000 1 


1 00 


CiOOO 


OdJtJO 


(INPUT 


1 B H a 


5BEA 


( 0080 ) 


000 A 


0000 


002D 
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**» DUMP OF PROCESS #** 



PROCESS RECORD FOR GO* 

4E4A ( 0000 ) SPEC SB6A 4F50 FFOO FFOO FFOO FFOO FFOO 
4E5A (0010) FFOO FFOO FFOO FFOO FFOO FFOO FFOO FFOO 
4E6A (0020) FFOO 4EBA 3016 FFFF 5FEC 3000 0000 4ESC 
4E7A (0030) 516A 5296 0000 0000 5710 56F8 FFFF 



(_ 
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OP. 


B B ■ 


a a 


• 


B tt B 


) 


( , 


a « » 


B B a 


B a » 


a a 


a 


Ban 


) 


(. 


.N. 


0. . 
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) 


(C 
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V- 


, 


n 


) 



DATA AREA FOR TERM* LEVEL=2 

4EBA (0000) 5216 0000 0000 0000 0000 0000 0001 0000 



(R, 



% 



4ECA (0010) 2E6S 4EBA 4F16 062E 4E4A 5FEC 1560 586 A 

4EDA (0020) FFOO 4E8E 1560 0000 5FEC 39A4 4455 4D50 

4EEA (0030) 5F49 5420 2020 4558.4543 5554 494F 4E20 

4EFA (0040) 4245 4749 4E53 2EDD 0603 0000 0000 0400 

4F0A (0050) 4F00 4F3C 4E4A 0003 0000 4F06 



(. .N.O. . .NJ C. ) 

(. .N _,9.riUh1P) 

(-IT EXECUTION ) 

(BEGINS ) 

(O.CKNJ 0. ) 



DATA AREA FOR 00$ LEVEL=2 

4E8E (0000) 5216 0000 0000 0000 0000 0000 0000 4E4A 

4E9E (0010) 0000 4ESE 4EBA 2C92 4E4A 4E76 03C8 018F 

4EAE (0020) 0000 0000 FFFF 0000 5FEC 5FEC: 

##« END OF PROCESS DUMP 



(R ,N.J) 

( . .N.N. ,-. NUN ) 



#»» DUMP OF HEAP *■«■# 



4DC4 ( 0000 

4DD4 (0010 

4DE4 ( 0020 
4DF4-4E03 

4E04 (0040 

4E16 (0000 

4E22 ( 0000 



4E32 


(0010 


4E42 


( 0020 


5A44 


( 0000 


5A54 


(0010 


5A64 


( 0020 


5A74- 


-5A83 


5A84 


(0040 


5A96 


(0000 


5AA6 


(0010 


5AAA 


( 0000 


SABA 


(0010 


5ACA 


( 0020 


5AD2 


(0000 


5AE2 


(0010 


5AF2 


( 0020 


5B02 


( 0030 


5B12 


( 0040 


5B24 


( 0000 


5B34 


(0010 


5B40 


( 0000 


5B50 


(0010 


5B60 


( 0020 



4841 4C54 2043 414C 4C45 4420 4C45 4420 
494F 4E20 4245 4749 4E53 0000 0000 0000 
0000 0000 0000 0000 0000 0000 0000 0000 
SAME AS LAST LINE 
0000 0000 0000 0000 0000 0000 0000 0000 

092E 5359 534D 5347 3033 

0000 0B04 0009 4DC4 0050 OOOC 0000 0000 
06SD 0000 0000 4E16 0000 0000 0000 0000 
0000 0000 OlFF 



3120 3220 3320 3420 
3920 3020 2020 2020 
2020 2020 2020 2020 
SAME AS LAST LINE 
2020 2020 2020 2020 



3520 
2020 
2020 



3620 
2020 
2020 



3720 3820 
2020 2020 



2020 2020 
2020 2020 2020 2020 



112E 4A41 4E45 2E44 4154 412E 4455 4D50 
4954 

0000 0906 2018 5A44 0050 0000 0000 0000 
040D 0000 0000 5A96 0000 0000 0000 0000 
0000 0000 OlFF 



2035 4144 3220 2830 3030 3029 2032 

3520 3431 3331 2033 3333 3120 3230 

•^ rt "^i O O O O O O O •"' ("J O "O O 1 O •"' O (*j O J*^ • •' *-' O O O ' -' 

3333 3230 2020 2820 3332 3330 2032 



3033 
3333 
3320 
3033 



3233 3020 3230 3329 0000 0000 0000 0000 

192E 4A41 4E45 2E50 524F 4753 2E4F 5554 
5055 542E 4455 4D50 4954 

0000 0B05 0009 4FA8 0050 0002 0000 0000 
868D 0000 0000 5B24 0000 0000 8000 0001 
0000 0000 1 FF 



HALT CALLED LED 
ION BEGINS 



■ ■■«■«•> 



. . SYSMSG03 
N 



12 3 4 5 6 7 8 
9 



. .JANE. DATA. DUMP 
IT 



5AD2 ( 0000 ) 203 
3431 3331 2033 

3230 2033 3233 
3033 ( 3230 203 
230 203 ) 

. ..JANE. PROGS. OUT 
PUT. DUMP IT 

■ ■M ■ aa'— '«Bl« a a a m m 
a ■ ■ ■ « ■ L -^ ■■■■>>■■ 
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DXIO USAGE 



OBJECTIVES 



1. STUDENTS SHOULD BE ABLE TO: 

- BID SCI 

- ASSIGN A USER ID 

- MODIFY THE TERMINAL STATUS TO REQUIRE LOG ON 

- REBID SCI USING THE ASSIGNED USER ID 



2. STUDENTS SHOULD UTILIZE THE DIRECTORY STRUCTURE OF THE 
TRAINING DISK TO DEVELOP PROGRAMS FOR THE CLASS. 

3. STUDENTS SHOULD UTILIZE SYNONYMS TO DECREASE THE NUMBER 
OF KEYSTROKES REQUIRED TO ENTER FILE PATHNAMES. 

4. STUDENTS SHOULD BE ABLE TO USE THE TEXT EDITOR. 



AGENDA 

1. LOADING DXIO 

2. SCI 

- MODES OF OPERATION 

- SYSTEM INITIALIZATION 

- USER ID-S 

3. DISK FILE MANAGEMENT 

- FILE TYPES AND ACCESS METHODS 

- DISK VOLUMES 

- DIRECTORY STRUCTURE 

- SUPPORTED DISK CHARACTERISTICS 

4. DISK RELATED SCI COMMANDS 

5. SUMMARY 



ij-K 
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LOADING ( BOOTING ) DXlO 



DXIO MAY BE LOADED ( BOOTED ) FROM 5 

# CARDS 

» CASSETTE 

* ROME'S 

» MAG TAPE 

DEPENDING ON YOUR SYSTEM CONFIGURATION 



LOADING DXIO USING A ROM LOADER 

1) PRESS THE -HALT/SIE'- SWITCH 

2) PRESS THE 'RESET'- SWITCH 

3) PRESS THE 'LOAD'- SWITCH 

4) THE BOOT/LOADER EXECUTES AND DXIO IS LOADED INTO MEMORY 

LOADING DXIO WITH A LOADER ON PUNCHED CARDS 

1) LOAD BOOT CARD DECK INTO CARD READER HOPPER 
AND RESET THE CARD READER 

2) PRESS 'HALT/SIE' SWITCH 

3) PRESS THE 'RESET-' SWITCH 

4) PRESS THE "CLR' SWITCH 

5) SET THE DATA SWITCHES TO HEX 0080 

6) PRESS 'MA ENTER-' SWITCH 

7) PRESS 'MDE-- SWITCH 

8) PRESS THE 'LOAD-- SWITCH 

9) THE LOADER PROGRAM IS READ FROM CARDS AND 
DXIO IS LOADED 



r/ 



LOADING DXIO WITH A LOADER ON CASSETTE 

1) LOAD THE CASSETTE CONTAINING THE LOADER PROGRAM INTO 
EITHER CASSETTE UNIT ON THE MODEL 733 ASR AND PLACE 
THAT CASSETTE UNIT IN -PLAYBACK- MODE 

2) PRESS ■' HALT/SI E- SWITCH 

3) PRESS -RESET- SWITCH 

4) PRESS THE 'LOAD- SWITCH 

5) THE LOADER PROGRAM IS READ FROM CASSETTE AND 
DXIO IS LOADED 

*»* NOTE: ONCE THE SYSTEM IS BOOTED, YOU MAY ACTIVATE -SCI 



SYSTEM COMMAND INTERPRETER 



; INGLE UNIFORM INTERFACE BETWEEN USERS AND: 

- DXIO 

- SOFTWARE DEVELOPMENT UTILITIES 

- SYSTEM UTILITIES 

- APPLICATION PROGRAMS 



SCI MODES OF OPERATION 

TTY MODE - TELETYPE MODE 

- USED FOR SCI EXECUTION ON A HARD COPY DATA 
TERMINAL LIKE A 733 ASR 

- PRINTS EACH PROMPT AND WAITS FOR USER TO 
RESPOND BEFORE PRINTING THE NEXT ONE 

- SQUARE BRACKET ( C] ) IS SCI PROMPT 
VDT MODE - VIDEO DISPLAY TERMINAL MODE 

- USE FOR CRT TYPE DEVICES ( 911, '?13 ) 

- DISPLAYS ALL PROMPTS AND POSITIONS CURSOR TO FIRST FIELD 

- RETURN ( NEW LINE - 913 ) POSITIONS CURSOR TO FIRST FIELD 
CHARACTER OF NEXT FIELD 



/ on 



VDT MODE SCI COMMAND PROMPT 

TEXAS INSTRUMENTS 
D X 1 SYSTEM 3.1.0 

SELECT ONE OF THE FOLLOWING COMMAND GROUPS 

/DEV - DEVICE OPERATIONS 
/FILE - FILE OPERATIONS 
/PDEV - PROGRAM DEVELOPMENT 
/SMAIN - DXIO MAINTENANCE 
/SOP - DXIO OPERATION 



BATCH MODE - SCI COMMAND STREAM IS READ FROM 
A SEQUENTIAL FILE OR A DEVICE. 

- MAY BE USED FOR BATCH COMPILATIONS 
AND EXECUTIONS OF HIGH LEVEL LANGUAGE 
PROGRAMS 



SCI ACTIVATION 



FOLLOWING IS THE KEY STROKE SEQUENCE TO ACTIVATE 
::CI AT THE DIFFERENT STATION TYPES. 

733/743 911 VDT 913 VDT 



KEY 1 - ESC RESET ( BLANK KEY ) RESET 
KEY 2 - ! ! ! 



/o/ 



SYSTEM INITIALIZATON 
AFTER BOOTING DXIO, YOU SHOULD INITIALIZE THE SYSTEM. 
SYSTEM LOG 



THE FOLLOWING INFORMATION MAY BE AUTOMATICALLY RECORDED ON A 
FILE OR DEVICE: 

- DEVICE HARDWARE ERRORS 

- INPUT /OUTPUT ERRORS 

- PROGRAM ( TASK ) ERRORS 

- MESSAGES GENERATED BY A USER PROGRAM 



INITIALIZE SYSTEM ( IS ) COMMAND 



PURPOSE: DXIO INITIALIZATION INCLUDING: 

- INITIALIZE DATE AND TIME 

- INITIALIZE SYSTEM LOG 

- ASSIGN NEEDED GLOBAL LUNOS 



FORMAT: 

C] IS 

INITIALIZE SYSTEM 

INITIALIZE SYSTEM LOG: YES/ NO 

YEAR: 

MONTH: 

DAY: 

HOUR: ( 24 HOUR CLOCK ) 

MINUTE: 

ATTENTION DEVICE: THESE PROMPT:^ 

ONLY PRINTED 
LOGGING DEVICE: MESSAGE LOGGING DEVICE IF -YES' WAS 

ENTERED FOR 
FILES: YES /NO -ISL- PROMPT 



/.^ 
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DXIO MAINTENANCE 



USER IIKS 



A TERMINAL MAY BE 'SET UP'' SO THAT A USER MUST LOG ON BEFORE 
SCI IS ACTIVATED. 

USER ID'S ARE QUITE USEFUL BECAUSE THEY MAINTAIN THE USER'S 
ENVIRONMENT BETWEEN DEVELOPMENT SESSIONS ( SYNONYMS ) 



ASSIGN USER ID ( AUI ) COMMAND 

PURPOSE: TO ESTABLISH A NEW USER ID WHICH DXIO WILL RECOGNIZE 
FORMAT! 

£1 AUI 

ASSIGN USER ID 

USER DESCRIPTION: 1-16 CHARACTER STRING 

NEW USER ID: AAANNN - A=LETTER, N=(0-9) 
NEW PASSCODE: 1-8 CHARACTER PASSCODE 
USER PRIVILEGE CODE < 0-7 ): PRIVILEGE CODE 

EXAMPLE: 

Zl AUI 

ASSIGN USER ID 

USER DESCRIPTION! JOHN, PASCAL 
NEW USER ID: JONOOl 
NEW PASSCODE: CHECK 1 
USER PRIVILEGE CODE ( 0-7 ): 7 



Ic^ 
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OTHER USER ID RELATED SCI COMMANDS 



•H- MUI - MODIFY USER ID 

USED TO CHANGE THE PASSCODE AND/OR PRWILEGE CODE 
ASSOCIATED WITH A USER ID 

* DUI - DELETE USER ID 

USED TO DELETE AN EXISTING USER ID 

* LUI - LIST USER ID'S 

USED TO LIST ALL EXISTING USER ID'S 
PASSCODES AND PRIVILEGE CODES ARE NOT LISTED 

« MTS - MODIFY TERMINAL STATUS 

USED TO MODIFY THE •STATUS'' OF A TERMINAL 
TO REQUIRE LOGIN 



MODIFY TERMINAL STATUS ( MTS ) COMMAND 



PURPOSE: TO CHANGE THE CURRENT •STATUS-- OF A TERMINAL 

< I.E. ENABLE SCI OPERATION, REQUIRE LOGIN, ETC ) 



FORMAT: 

C: MTS 

MODIFY TERMINAL STATUS 

TERMINAL NAME: ST05 

TERMINAL STATUS: ON 

NEW MODE (TTY/VDT): VDT 

LOGIN REQUIRED: YES 

USER PRIVILEGE CODE: 7 
DEFAULT MODE: 



STATION ID ) 

ON/OFF SCI OPERATION ENABLED ) 

SCI MODE ) 

YES/NO - LOGIN FOR THIS STATION ) 

0-7, PRIVILEGE CODE FOR STATION ) 

STANDARD MODE FOR STATION ) 



•»■» NOTE: STATION STATUS CHANGES DO NOT TAKE EFFECT UNTIL A 
•'QUIT- ( Q ) COMMAND IS ENTERED. 



"- > 
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DXIO DEVICE NAMES 



*» ALL DXIO SUPPORTED DEVICES HAVE 4 CHARACTER NAMES AS FOLLOWS 



•'HARD-' DISKS 



FLOPPY DISKS 



DSOl - PRIMARY DISK DRIVE 
DS02 - SECONDARY DISK DRIVE 
ETC. 



DKOl 
DK02 
ETC. 



LINE PRINTERS 



MAG TAPE DRIVES 



LPOl 
LP02 
ETC. 



MTOl 
MT02 
ETC. 



KEYBOARD DEVICES 



CASSETTE TRANSPORTS 



STOl 
ST02 
ETC. 



CSOl 
CS02 
ETC. 



CARD READERS 



SPECIAL DEVICES 



CROl 
CR02 
ETC. 



USER DEFINED 
1-4 CHARACTERS 
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DXIO DISK FILE MANAOEMENT 



FILE ORGANIZATIONS 

EXPANDABLE - FILE SIZE CAN GROW AS MORE SPACE IS NEEDED 
NON-EXPANDABLE - FILE SIZE IS FIXED WHEN FILE IS CREATED 

FILE TYPES ( ACCESS ) 



SEQUENTIAL - -STANDARD- SEQUENTIAL LOGICAL DEVICE 

RELATIVE RECORD - FIXED LENGTH RECORDS ARE ACCESSED BY RECORD NUMBER 

MULT I -KEY INDEX - RECORDS ARE ACCESSED BY KEY 

ACCESS PRIVILEGES ( SPECIFIED WHEN OPENED ) 



READ ONLY - ONLY READ OPERATIONS ARE LEGAL 

READ/WRITE - ALL OPERATIONS ARE LEGAL 

EXCLUSIVE WRITE - ONLY OPENING TASK MAY WRITE TO FILE 

OTHERS MAY READ 

EXCLUSIVE ALL - ONLY OPENING TASK MAY PERFORM I/O TO FILE 
RECORD LOCKING 



A RECORD IN A FILE MAY BE 'LOCKED-' WHEN AN UPDATE OPERATION li 
PERFORMED TO PREVENT OTHER PROGRAMS FROM ACCESSING IT DURING 
THE UPDATE OPERATION. 
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FILE HIERARCHY 



DISK VOLUMES 

EACH DISK HAS A VOLUME NAME WHICH IS ESTABLISHED WHEN THE DISK 
IS INITIALIZED ( SEE INSTALL NEW VOLUME COMMAND ( INV ) VOL. II ) 

EACH VOLUME HAS A CENTRAL DIRECTORY CALLED 'VCATALOG^ 

VCATALOG MAINTAINS INFORMATION ON: 

- SYSTEM FILES 

- USER DIRECTORIES 

- USER FILES 

DIRECTORIES AND FILES ARE MAINTAINED IN A 'TREE' STRUCTURE 




VCATALOG 



USER 

dir't'ies 





• 



ICtf 
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FILE ACCESS PATHNAMES 



# FILES ARE ACCESSED BY PATHNAME 
PATHNAME FORMAT 



VOLUME NAME 
DRIVE NAME 



. <DIR NAME> 



•COIR NAME> . <FILE NAME! 



■»» NOTE: THE DIRECTORY NAME -VCATALOG' NEED NOT BE INCLUDED. 
EXAMPLES: 



DS02. VCATALOG. CLASS. SRC. MYPROG 
VOLl . COBOL. LST. NEWPROG 
. PASCAL. SRC. SORT 
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niSK ALLOCATION 

ALLOCATION UNITS ( ADU'S ) 

DISK SPACE IS ALLOCATED IN 'CHUNKS-' CALLED ALLOCATION UNITS. THE 
SIZE OF AN ADU AND THE TOTAL NUMBER OF ADU'S ON A DISK IS DEPENDENT 
ON THE TYPE OF DISK BEING USED. 

DISK STATISTICS 



DS31 DSIO T25 T50 T200 



2 


4 


5 


5 


19 


406 


1632 


2040 


4075 


15485 


24 


20 


38 


38 


38 


144 


144 


144 


144 


144 


1 


1 


2 


3 


9 



HEADS/DISK 
TRACKS/DISK 
SECTORS /TRACK 
WORDS/SECTOR 
SECTORS /ADU 



DISK RELATED SCI COMMANDS 

CREATE FILE DIRECTORY ( CFDIR ) COMMAND 

PURPOSE: TO CREATE A USER FILE DIRECTORY 
FORMAT: 

C: CFDIR 

CREATE DIRECTORY FILE 

PATHNAME: COMPLETE DIRECTORY PATHNAME 

MAX ENTRIES: MAXIMUM NUMBER OF FILES OR DIRECTORIES 
WHICH MAY BE KEPT UNDER THIS DIRECTORY 

EXAMPLE: 

113 CFDIR 

CREATE DIRECTORY FILE 

PATHNAME: VOLl . PROJl . SRC 

MAX ENTRIES: 100 
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DIRECTORY AND FILE STRUCTURE OF A 
VOLUME USED FOR DEVELOPMENT 




no 




li 



DXll 



DISK ALLOCATION 



ALLOCATION UNITS ( ADU-'S ) 



DISK SPACE IS ALLOCATED IN -CHUNKS- CALLED ALLOCATION UNITS. THE 
SIZE OF AN ADU AND THE TOTAL NUMBER OF ADU-'S ON A DISK IS DEPENDENT 
ON THE TYPE OF DISK BEING USED. 



DISK STATISTICS 



DS31 DSIO T25 T50 T200 



HEADS/ DISK 


^ 


4 


TRACKS/ DISK 


406 


1632 


SECTORS /TRACK 


24 


20 


WORDS /SECTOR 


144 


144 


SECTORS /ADU 


1 


1 



2040 4075 



19 



144 144 144 
■"' ■"; '"/ 



DISK RELATED SCI COMNANDS 

CREATE FILE DIRECTORY ( CFDIR ) COMMAND 

PURPOSES TO CREATE A USER FILE DIRECTORY 
FORMAT! 

[] CFDIR 

CREATE DIRECTORY FILE 

PATHNAME: COMPLETE DIRECTORY PATHNAME 

MAX ENTRIES: MAXIMUM NUMBER OF FILES OR DIRECTORIES 
WHICH MAY BE KEPT UNDER THIS DIRECTORY 

EXAMPLE: 

Zl CFDIR 

CREATE DIRECTORY FILE 

PATHNAME : VOL 1 . PRO J 1 . SRC 



MAX ENTRIES: 100 
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LIST FILE DIRECTORY ( LD ) COMMAND 

purpose: to LIST NAMES OF FILES AND SUBDIRECTORIES 
IN A DIRECTORY 

FORMAT: 

CD LD 

LIST DIRECTORY 

PATHNAME: PATHNAME OF DIRECTORY TO BE LISTED 

LISTING ACCESS NAME: DEVICE WHERE LISTING WILL BE DISPLAYED 

example: 
i:: LD 
LIST DIRECTORY 

PATHNAME: LES.DXIO 
LISTING ACCESS NAME: LPOl 



DIRECTORY LISTING OF: 
MAX # OF ENTRIES: : 



LES.DXIO 

# OF ENTRIES AVAILABLE: 



13 



DIRECTORY 


ALIAS 


OF 


ENTRIES 


LAST UPDATE 




CREATION 


DATA 


# 




23 


02/02/78 




5: 14:24 


02/02/7;= 


1 :3 : 1 3 : 54 


GEN 


■H- 






31 


02/02/7S 




3:57:08 


02/02/7iE 


13= 22: 0;3 


LST 


■«■ 






31 


02/02/73 




3:08:47 


02/02/7S 


13: 08:45 


OBJ 


•«• 






31 


02/02/78 




3:09:44 


02/02/76 


13:09:43 


SRC 


* 






31 


02/02/78 




3:57:49 


02/02/7!= 


13:09:23 


FILE 


ALIAS 


OF 


RECORDS 


LAST 1 


JPDATE 


FMT TYPE 


BLK PROTECT 


PKGl 


it 




47 


02/05/73 


20: 11: 17 


Bi 


; N 


3E 


Q YES 


PKG2 


■a- 




106 


02/14/78 


08:20:52 


BS 


=; N 


5E 


G! YES 


PKG3 


■M- 




40 


02/05/78 


20: 33:57 


B? 


i N 


3E 


Q YES 


PKG4 


■«• 




41 


02/06/73 


16: 17:20 


BS 


■; N 


51= 


G YES 


PKG5 


* 




1 


0!5 


03/02/78 


1 


5:50: 19 


B? 


:■ N 


BE 


Q YES 



10:00:20 TUESDAY, MAR 07, 1978. 



\l- 
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MAP DISK < MD ) COMMAND 

PURPOSE: TO LIST INFORMATION ABOUT THE CONTENTS OF 
A DISK, VOLUME, OR DIRECTORY 

FORMAT: 

c: MD 

MAP DISC 

PATHNAME: PATHNAME OF DISK OR DIRECTORY TO MAP 

LISTING ACCESS NAME: DEVICE WHERE LISTING WILL BE PRINTED 

SHORT FORM?: YES/NO - ABBREVIATED MAP 

TOP LEVEL ONLY?: YES/NO - LIST ONLY DIRECT SONS ( DAUGHTERS ) 

DIRECTORY NODES ONLY?: YES /NO - ONLY LIST DIRECTORY NODES 



EXAMPLE: 

1:3 MD 
MAP DISC 

PATHNAME: JANE 
LISTING ACCESS NAME: LPOl 
SHORT FORM: YES 
TOP LEVEL ONLY?: NO 
DIRECTORY NODES ONLY?: NO 



/('/ 



DISC MAP OF JANE 
TODAY IS 17: 13:40 



TUESDAY, NOV 14, 197S. 



LV NAME 



NUMBER CURRENT TOTAL 

FILE OF EOM ALLOC 

TYPE RECORDS ADU ADU 



LAST UPDATE 



VCATALOG! 

FOILS 

LISTING 

OBJ 

OBJECT 

SOURCE 

VCATALOG 

LC 

LMAP 

PROG 

1 FOILS: 

REVIEW2 

REVIEW4 

REVIEWS 

REVIEW? 

SETS 

TRANS 

#* JANE. FOILS 

1 listing: 
TEST 
TESTING 

*# JANE. LISTING 

1 OBJ: 

TEST 

#■«• JANE. OBJ 

1 OBJECT: 

TEST I NT 

#* JANE. OBJECT 

1 SOURCE: 
ASSNIA 
ASSNIB 
ASSNIC 
ASSN2A 
ASSN2B 
ASSN2C 
ASSN2D 
ASSN3A 
ASSN3B 
ASSN3C 

** JANE. SOURCE 

««JANE 









FILES=10 


AVAILABLE=: 


537 




D 


54 


54 


54 


11/14/78 


17: 


10:36 


D 


12 


12 


12 


11/14/78 


17: 


10:47 


D 


4 


4 


4 


11/14/78 


17: 


3: 6 


D 


12 


12 


12 


11/14/78 


17: 


2:13 


D 


54 


54 


54 


11/14/78 


17: 


3: 


D 


348 





348 


11/14/78 


17: 


10:42 


S 


7 


3 


3 


11/14/78 


17: 


2:29 


S 


28 


3 


3 


11/14/78 


17: 


10:40 


P 


166 


166 166 


11/14/78 


17: 


2:27 








FILES=6 


AVAILABLE=47 




s 


242 


15 


15 


11/14/78 


17: 


10:28 


s 


283 


21 


21 


11/14/78 


17: 


10:34 


s 


246 


18 


18 


11/14/78 


17: 


10:22 


s 


161 


12 


12 


11/14/78 


17: 


10:25 


s 


339 


21 


21 


11/14/78 


17: 


10:37 


s 


38 


6 


6 


U/14/78 


17: 


10:31 








TOTAL S 


IZE = 147 ADUS 










FILES=2 


AVAILABLE=9 






s 


33 


6 


6 


11/14/78 


17: 


10:45 


s 


30 


3 


3 


11/14/78 


17: 


10:47 








TOTAL S 


IZE = 21 ADUS 










FILES=1 


AVAILABLE=2 






s 


17 


6 


6 


11/14/78 


17: 


3: 6 








TOTAL S 


IZE = 10 ADUS 










FILES=1 


AVAILABLE=10 




s 


43 


15 


15 
TOTAL S 


11/14/78 
IZE = 27 ADU: 


17: 


25 14 








FILES=10 


AVAILABLE=43 




s 


27 


3 


3 


11/14/78 


17: 


2! 55 


s 


43 


6 


6 


11/14/78 


17: 


2:52 


s 


51 


6 


6 


11/14/78 


17: 


2:50 


s 


64 


9 


9 


11/14/78 


17: 


3a 1 


s 


82 


12 


12 


11/14/78 


17: 


2:47 


s 


143 


18 


18 


11/14/78 


17: 


2 : 58 


s 


188 


24 


24 


11/14/78 


17: 


2:45 


s 


111 


15 


15 


11/14/78 


17: 


2:35 


s 


118 


15 


15 


11/14/78 


17: 


2:41 


s 


121 


15 


15 


11/14/78 


17: 


2:38 








TOTAL S 


IZE = 177 ADUS 










TOTAL S 


IZE = 2594 ADUS 
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INSTALL VOLUME ( IV ) COMMAND 



PURPOSE: TO INSTALL AN 'OLD'' ( ONE WHICH HAS GOOD DATA ON IT ) 
VOLUME FOR USAOE UNDER DXIO 

FORMAT: 

C3 IV 

INSTALL VOLUME 

UNIT NAME: DS03 

VOLUME NAME: JANE 

**NOTE - IF YOU WISH TO INSTALL A -NEW < ONE WHICH HAS NO GOOD DATA 

ON IT ) VOLUME, YOU SHOULD USE THE INSTALL NEW VOLUME ( INV ) 
COMMAND. 

**NOTE - IF A VOLUME IS INSTALLED AND YOU WISH TO INSTALL ANOTHER 
VOLUME IN THE SAME DRIVE, YOU MUST UNLOAD THE CURRENT 
VOLUME USING THE UNLOAD VOLUME ( UV ) COMMAND. 



UNLOAD VOLUME ( UV ) COMMAND 

PURPOSE: TO UNLOAD A PREVIOUSLY INSTALLED VOLUME 
FORMAT: 

C] UV 

UNLOAD VOLUME 

VOLUME NAME: JANE 



//t- 



SYNONYMS 

** USED TO SAVE AN OPERATOR KEYSTROKES 

## ALLOWS ONE STRING TO REPLACE ANOTHER STRING 

** SYNONYM RELATED SCI COMMANDS 

- ASSIGN SYNONYM ( AS ) 

- LIST SYNONYMS ( LS ) 

- MODIFY SYNONYMS ( MS ) 



#*NOTE - SYNONYMS ARE LOCAL TO THE TERMINAL AT 
WHICH THEY ARE BEING USED 

#*NOTE - WHEN A USER ID IS IN USE AND SYNONYMS ARE 
ASSIGNED, THOSE SYNONYMS GET SAVED SO THAT 
THE NEXT TIME THAT USER LOGS ON, HIS SYNONYMS 
WILL STILL BE ASSIGNED 



ASSIGN SYNONYM ( AS ) COMMAND 

PURPOSE: TO DEFINE A STRING TO SUBSTITUTE FOR ANOTHER STRING 
FORMAT: 

U AS 

ASSIGN SYNONYM VALUE 

SYNONYM: REPLACEMENT STRING 
VALUE 3 REPLACED STRING 
EXAMPLE: 

Zl AS 

ASSIGN SYNONYM VALUE 
SYNONYM: L 

VALUE : LES . PASCAL . SRC 
*•»■■«■ NOW 

L.PROGl = LES. PASCAL. SRC. PROG 1 



)/. 



PROGRAMS UNDER DXIO ( TASKS ) 



PROGRAMS WHICH ARE GOING TO RUN UNDER DXIO MUST BE INSTALLED ON A 
PROGRAM FILE BEFORE THEY MAY BE EXECUTED. 

ANY PROGRAM WHICH IS INSTALLED OM A PROGRAM FILE WILL HAVE A 
•'TASK ID'-. TASKS MAY BE INSTALLED ON A PROGRAM FILE AND ASSIGNED 
A -TASK ID' BY THE LINKAGE EDITOR AUTOMATICALLY AT LINK TIME. 



EXECUTING TASKS UNDER DXIO 



TASKS MAY BE EXECUTED IN MANY DIFFERENT WAYS UNDER DXIO. 

< XT ) EXECUTE TASK 

( XHT ) EXECUTE AND HALT TASK 

( XTS ) EXECUTE AND TERMINATE SCI 

( XCTF ) EXECUTE COBOL TASK FOREGROUND 

( XPT ) EXECUTE PASCAL TASK 

ETC. 



MODES OF EXECUTION 



ANY TASK WHICH IS EXECUTED FROM A STATION MAY EXECUTE IN ONE 
OF TWO MODES: 

FOREGROUND - THIS MODE IS FOR AN INTERACTIVE TASK WHICH WILL 
PERFORM I/O TO THE STATION FROM WHICH IT 
WAS EXECUTED. 

- SCI IS SUSPENDED UNTIL THE TASK COMPLETES 
EXECUTION. 

BACKGROUND - THIS MODE IS FOR A TASK WHICH REQUIRES NO ON 
INTERACTION WITH THE STATION FROM WHICH IT WAS 
EXECUTED. 

- SCI IS NOT SUSPENDED 

- CONTROL RETURNS TO SCI AS SOON AS THE TASK SPECIFIED 
IS PLACED IN EXECUTION. 

** NOTE: ONLY ONE FOREGROUND AND ONE BACKGROUND TASK MAY BE PLACED IN 
EXECUTION FROM A STATION AT ANY GIVEN TIME. 
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SUMMARY 



SYSTEM COMMAND INTERPRETER ( SCI ) 



3 MODES OF OPERATION 

- TTY MODE 

- VDT MODE 

- BATCH MODE 



DXIO MAINTENANCE 



USER ID-'S 

- MAINTAIN DEVELOPMENT ENVIRONMENT ( SYNONYMS ) 

- MAY RESTRICT SCI COMMANDS WHICH MAY BE USED 

- PROVIDE SOME SYSTEM SECURITY ( LOG ON ) 



DXIO FILE MANAGEMENT 



3 TYPES OF FILES SUPPORTED 

- SEQUENTIAL 

- RELATIVE RECORD ( RANDOM ACCESS ) 

- MULT I -KEY INDEX ( KEY ACCESS ) 

HIERARCHY DIRECTORY AND FILE STRUCTURE 
SCI COMMANDS SUPPORT DIRECTORY STRUCTURE 

- CREATE DIRECTORY 

- LIST DIRECTORY 

- MAP DISK 

ETC. 

USER PROGRAMS ( TASKS ) 



TWO MODES OF OPERATION 



- FOREGROUND ( FOR INTERACTIVE PROGRAMS ) 

- BACKGROUND ( FOR NON- INTERACTIVE PROGRAMS ) 

- A USER MAY EXECUTE ONE OF EACH AT A STATION AT A TIME 



)■/ 
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PASCAL PROGRAM DEVELOPMENT 



OBJECTIVES 



STUDENTS SHOULD BE ABLE TO USE THE TEXT EDITOR TO CREATE AND 
EDIT PASCAL SOURCE PROGRAMS, 

STUDENTS SHOULD BE ABLE TO COMPILE, LINK, INSTALL, AND EXECUTE 
PASCAL PROGRAMS. 



AGENDA 



1. PASCAL COMPILER 

- XT IP COMMAND 

- STACK AND HEAP MEMORY SPECIFICATION:: 

- ERROR MESSAGES 

2. PROGRAM LINKING 

- XLE COMMAND 

- LINK CONTROL FILES 

- EXAMPLE 

3. PROGRAM EXECUTION 

- XPT COMMAND 

- TASK MANAGEMENT SCI COMMANDS 

4. TEXT EDITOR 



i^D 



PASCAL - SOURCE TO EXECUTION 

3 MAJOR STEPS 

1. COMPILATION ( XTIP ) 

2. LINKING ( XLE ) 

3. EXECUTION ( XPT ) 

PASCAL COMPILER 
The TEXAS INSTRUMENTS PASCAL ( TIP ) Compiler has 3 phases of executlON 

PHASE 1 ( SILTl ) - Initial SYNTACTIC scan of source program 

PHASE 2 ( SILT2 ) - Translation from source to intermediate lansuasie 

PHASE 3 ( CODEGEN ) - Generation of 990 obJect from intermediate 

LANGUAGE 

NOTE: No phase mill execute if errors mere found in the previous phase 
phase. 



EXECUTION OF TIP COMPILER 

C: XTIP 

EXECUTE TI PASCAL COMPILER 

SOURCE: Pathname of PASCAL source 

OBJECT: Pathname of PASCAL compiled obJect 

LISTING: Pathname for compiled listing 

MESSAGES: Pathname where Compiler messages are written 

MEMl: S»H Stacks Heap memorv for SILTl 

MEM2: StH Stack, Heap memory for SILT2 

MEM3: S,H Stack, Heap memory. for CODEGEN 

MODE: FOREGROUND or BACKGROUND - Compiler execution mode 
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EXAMPLE 



Z2 XTIP 

EXECUTE TI PASCAL COMPILER 



SOURCE 

OBJECT 

LISTING 

MESSAGES 

MEMl 

MEM2 

MEMS 

MODE 



TI . PASCAL. SRC. MYPROG 
TI . PASCAL. OBJ. MYPROG 
TI . PASCAL. LST. MYPROG 
ME 



FOREGROUND 



== FOREGROUND COMMAND EXECUTING == 



COMPILER MESSAGES 



SILTl EXECUTION BEGINS 

MYPROG 

NORMAL TERMINATION 

STACK USED = 3710 HEAP USED = I960 



SILT2 EXECUTION BEGINS 

MYPROG 

NO ERRORS IN PROGRAM 

NORMAL TERMINATION 

STACK USED = 10299 HEAP USED = 1232 



CODEGEN EXECUTION BEGINS 

MYPROG 

NORMAL TERMINATION 

STACK USED = 8430 HEAP USED = 2634 
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STACK AND HEAP REQUIREMENTS FOR TIP 



THE TIP COMPILER IS WRITTEN IN TIP. MEMORY FOR VARIABLES 
USED IN A TIP PROGRAM IS ALLOCATED IN ONE OF TWO WAYS: STACK 
OR HEAP. 



STACK MEMORY 



THIS MEMORY IS ALLOCATED FOR -STATIC' VARIABLES IN 
A LAST- IN - FIRST-OUT FASHION < THE STACK MEMORY 
REQUIRED BY A PASCAL PROGRAM IS DEFINED AT COMPILE TIME ) 



HEAP MEMORY 



THIS MEMORY IS ALLOCATED FOR 'DYNAMIC- VARIABLES WHICH 
ARE CREATED AND DELETED USING THE 'NEW' AND 'DISPOSE'- 
STANDARD FUNCTION CALLS ( THE HEAP MEMORY REQUIRED 
FOR 'DYNAMIC VARIABLES IS ONLY DEFINED AT RUN TIME ) 



** NOTE - BOTH OF THESE MEMORY ALLOCATION STRATEGIES WILL BE 
DISCUSSED LATER IN THE COURSE. 



TIP REQUIREMENTS 

THE USER MAY SPECIFY THE AMOUNT OF MEMORY TO BE USED FOR 
STACK AND HEAP MEMORY BY EACH PHASE OF TIP COMPILER WHEN IT 
IS EXECUTED. IF THE SPECIFICATION IS NOT MADE, A DEFAULT VALUE 
IS USED. 

THESE SPECIFICATIONS ARE MADE IN " K'S OF BYTES ". 

** SEE NEXT PAGE FOR TABLE OF STACK AND HEAP VALUES FOR TIP »* 
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STACK AND HEAP VALUES FOR TIP COMPILER 



PHASE 



MEMl (SILTl) 
MEM2 (SILT2) 
MEMS (CODEGEN) 





STACK 






HEAP 




MIN 


MAX 


DEFAULT 


MIN 


MAX 


DEFAULT 


6K 


6K 


6K 


4K 


30K 


lOK 


12K 


13K 


13K 


2K 


7K 


4K 


lOK 


lOK 


lOK 


4K 


lOK 


SK 



** NOTES ** 



1) THE DEFAULT STACK AND HEAP VALUES ARE ADEQUATE FOR MOST 
'AVERAGE SIZE" PROGRAM. 

2) IF ROUTINES ARE VERY DEEPLY -NESTED-' WITHIN OTHER ROUTINES, 
THEN MORE STACK SPACE MAY BE REQUIRED. 

3) ROUTINES CONTAINING VERY LONG EXPRESSIONS MAY REQUIRE MORE 
STACK SPACE. 

4) IF A PROGRAM USES A LARGE NUMBER OF IDENTIFIERS, MORE HEAP 
SPACE MAY BE REQUIRED. 

5) VERY LONG ROUTINES OR ONES THAT USE A LARGE NUMBER OF 
CONSTANTS MAY REQUIRE MORE HEAP SPACE. 
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EXAMPLES OF TIP COMPILER ERROR MESSAGES 

DXPSCL 1.5.0 78.317 TI 990 PASCAL COMPILER 01/05/79 13:15:36 

PROGRAM ERRORS? 

VAR B , INPUT : INTEGER; 

C : ARRAY C 1 . . 20 3 OF REAL? 

TEST : BOOLEAN; 

BEGIN (» ERRORS «) 
A := 47; 
!104 
#»** ERROR # 105 **#* 
#*#* ERROR #145 #»** 

B := 3.48; 
«•»#* ERROR # 145 #■»•*# 

FOR J = 3 TO 20 DO 
!51 
BEGIN 

C C J 3 := O.O; 
WRITELN(' PRINT A AMESSAGE ' ) 
END; 
INPUT := 21; 
! 43 ! 5 
**»* ERROR #167 »»«* 
TEST := TRUE; 
WHILE TEST DO 
BEGIN 

B := B + l; 

IF B > 17 THEN 

TEST := FALSE; 
END 
WRITELN( ■•■ END OF A BAD PROGRAM!!!-) 
! 14 
END. 

MAXIMUM NUMBER OF IDENTIFIERS USED = 6 

NUMBER OF ERRORS = 10 

2 E IDENTIFIER EXPECTED 

5 E •■■:•' EXPECTED 

14 E -■;-■ EXPECTED 

43 E STATEMENT EXPECTED 

51 E ••■:=•' EXPECTED 

104 E UNDECLARED IDENTIFIER 

105 F CLASS OF IDENTIFER IS NOT VARIABLE 
145 F TYPE CONFLICT IN ASSIGNMENT 

167 F UNDECLARED LABEL 
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LINKING A PROGRAM 



BEFORE AN ERROR FREE PROGRAM MAY BE EXECUTED i IT MUST BE 
LINKED TO THE NEEDED RUNTIME LIBRARIES AND INSTALLED DM A PROGRAM 
FILE AS A TASK. 



LINK EDITOR 



THE LINK EDITOR IS A UTILITY WHICH RESOLVES REFERENCES BETWEEN 
INDEPENDENTLY COMPILED OR ASSEMBLED MODULES. 



LINK EDITOR OPERATION 



LINK 

CONTROL 

FILL 



LIBRARY 
FILES 



USER 

OBJECT 

FILES 




LINKAGE 
EDITOR 




U 






LINK EDITOR 

LINK CONTROL FILE ( INPUT ) 

- SPECIFIES TO LINK EDITOR THE LIBRARY FILES AND USER OBJECT 
FILES WHICH ARE TO BE LINKED INTO A COMPLETE PROGRAM 

LIBRARIES ( INPUT ) 

- FILE DIRECTORIES WHICH CONTAIN THE RUNTIME ROUTINES WHICH MAY 
BE UTILIZED BY A PROGRAM. < ONLY THOSE USED BY A PROGRAM ARE 
LINKED IN ) 

USER OBJECT < INPUT ) 

- OBJECT FILE(S) WHICH CONTAIN THE COMPILED OR ASSEMBLED OBJECT 
FOR A USER PROGRAM. ( CONSTRUCTED BY A COMPILER OR ASSEMBLER ) 

PROGRAM FILE C OUTPUT ) 

- ANY PROGRAM ( TASK ) WHICH IS GOING TO RUN UNDER DXIO, MUST 

BE INSTALLED ON A SPECIAL TYPE OF FILE CALLED A 'PROGRAM FILE- 
BEFORE IT CAN BE EXECUTED. 

WHEN EXECUTING THE LINK EDITOR, YOU MAY HAVE THE LINKED OBJECT 
AUTOMATICALLY INSTALLED OM A PROGRAM FILE FOR EXECUTION. 

LINK MAP ( OUTPUT ') 

- LISTING PRODUCED BY THE LINKAGE EDITOR WHICH LISTS ALL THE LINKING 
INFORMATION NEEDED BY THE USER. 



EXECUTION OF THE LINK EDITOR 

C3 XLE 

EXECUTE LINKAGE EDITOR 

CONTROL ACCESS NAME: <PATHNAME OF LINK CONTROL FILE> 

LINKED OUTPUT ACCESS NAMEs <CPROGRAM FILE PATHNAME> 

LISTING ACCESS NAME: <PATHNAME TO WHICH LINK MAP IS WRITTEN: 

PRINT WIDTH: 80 
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LINK CONTROL FILES ( COMMAND STREAM FOR LINK EDITOR ) 
PURPOSE: 

* SPECIFIES OBJECT FILES AND LIBRARIES WHICH ARE TO BE LINKED 

* ASSIGNS A TASK NAME TO THE PROGRAM BEING LINKED 

* SPECIFIES PRIORITY OF THE PROGRAM BEING LINKED 

* CREATED BY USING THE TEXT EDITOR 

LINK CONTROL COMMANDS 



TASK COMMAND 



PURPOSE: ASSIGNS A NAME TO A TASK BEING LINKED 
FORMAT: 

TASK < NAME > 
WHERE, < NAME > - 1 TO 8 CHARACTER NAME FOR PROGRAM 
EXAMPLE: 

TASK MYPROG 

INCLUDE COMMAND 



PURPOSE! 



FORMAT: 



EXAMPLE: 



#*NOTE: 



SPECIFIES FILE NAME OF OBJECT MODULE TO BE INCLUDED 
IN THE LINKED OUTPUT MODULE. 



INCLUDE C ASSEMBLED OR COMPILED OBJECT FILE PATHNAME > 



I NCLUDE T I . OBJECT . MYPROG 

IF EXTENDED PRECISION REAL NUMBERS ARE DESIRED, TWO 
ADDITIONAL -INCLUDE-- COMMANDS MUST FOLLOW THE -INCLUDE (MAIN) 
COMMAND IN THE LINK CONTROL FILE. THESE TWO COMMANDS ARE: 

INCLUDE (FL$ITD) 

INCLUDE (TEN$D) 
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LIBRARY COMMAND 

PURPOSE: SPECIFIES DIRECTORIES WHICH ARE TO BE SEARCHED 
WHEN AN ABBREVIATED INCLUDE COMMAND IS USED. 

FORMAT: 

LIBRARY < DIRECTORY NAME > C < DIRECTORY NAME > ... 1 

EXAMPLE: 

L I BR ARY T I . OBJECT — I 

I 
I < == > INCLUDE TI.OBJECT.MYPROG 

I 
INCLUDE ( MYPROG ) — I 

»*NOTE! LIBRARIES ARE SEARCHED IN THE ORDER IN WHICH THEY ARE 
SPECIFIED. 



FORMAT COMMAND 



PURPOSE: SPECIFIES THE FORMAT THAT THE LINKED OBJECT MODULE 
SHOULD BE IN. 

FORMAT: 



IMAGE 
FORMAT ASCII C , REPLACE 1 , PRIORITY 

COMPRESSED 

IMAGE - OUTPUT WILL GO TO A PROGRAM FILE 

ASCII - OUTPUT WILL GO TO A STANDARD OBJECT FILE 
IN ASCII FORMAT 

COMPRESSED - OUTPUT WILL GO TO A STANDARD OBJECT 

FILE IN A SPECIAL •'COMPRESSED-' FORMAT 



EXAMPLE: 



FORMAT I MAGE , REPLACE , 2 
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NOSYMT COMMAND 

PURPOSE: SPECIFIES THAT NO SYMBOL TABLE IS TO BE INCLUDED 

IN THE LINKED OUTPUT. ( THIS COMMAND SHOULD BE USED 
WHEN THE 'FORMAT IMAGE' COMMAND IS USED ) 

FORMAT: 

NOSYMT 



END COMMAND 



PURPOSE: TERMINATES THE LINK CONTROL FILE INPUT STREAM 
TO THE LINK EDITOR < EVERY LINK CONTROL FILE 
MUST CONTAIN AN END COMMAND ) 

FORMAT: 

END 
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SAMPLE PASCAL LINK CONTROL FILE 

NOSYMT 

LIBRARY .TIP. OBJ 
FORMAT IMAGE, REPLACE, 3 
TASK MYPROG 

INCLUDE (MAIN) 

I NCLUDE T I . PASCAL . OB J . MYPROG 
END 



NOTES: 

* COLUMN POSITION IS NOT IMPORTANT 

» ■ (MAIN) ' IS THE PASCAL RUNTIME PACKAGE WHICH 
MUST BE INCLUDED IN EVERY PASCAL LINK. 

* THE ■'INCLUDE-' COMMAND FOR ■' (MAIN) " MUST BE THE 
FIRST •'INCLUDE-' COMMAND IN THE LINK STREAM 
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PASCAL LINK EXAMPLE 

C: XLE 

EXECUTE LINKAGE EDITOR 

CONTROL ACCESS NAME: TI . PASCAL. LC. MYPROG 

LINKED OUTPUT ACCESS NAME: TI . PASCAL, PROG 

LISTING ACCESS NAME: TI .PASCAL. LMAP. MYPROG 

PRINT WIDTH: 80 



SAMPLE LINK MAP 

TI 990/10 SDSLNK 939137 *A 11/15/78 08:31:22 PAGE 

COMMAND LIST 

NOSYMT 

LIBRARY .TIP. OBJ 

FORMAT I MAGE , REPLACE , 3 

TASK MYPROG 

INCLUDE (MAIN) 

INCLUDE TI. PASCAL. OBJ. MYPROG 

END 

TI 990/10 SDSLNK 939187 -frA 11/15/78 08:31:22 PAGE 

LINK MAP 

CONTROL FILE = T I. PASCAL. LC. MYPROG 

LINKED OUTPUT FILE = T I. PASCAL. PROG 

LIST FILE = TI. PASCAL. LMAP. MYPROG 

NUMBER OF OUTPUT RECORDS = 84 

OUTPUT FORMAT = IMAGE 
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TI 990/10 SDSLNK 939 1S7 «A 



11/15/7S 08:31:22 



PAGE 



PHASE 0, 


MYPROG 


ORIGIN 


= 0000 


LENGTH = 5810 


(TASK II 


1 as 


L) 




MODULE 


NO 


ORIGIN 


LENGTH 


TYPE 


DATE 


TIME 


CREAEAT 


MAIN 


1 


0000 


39DA 


INCLUDE 


03/09/78 


21:38:24 


SDSLSLN 


$DATA 


1 


4E62 


0034 










SUM- IT 


2 


39DA 


0020 


INCLUDE 


11/15/78 


08:27:45 


DXPSPSC 


READ_ECH 


3 


39FA 


0090 


INCLUDE 


11/15/78 


08:27:50 


DXPSPSC 


DUMP- IT 


4 


3A8A 


01F4 


INCLUDE 


11/15/78 


08:28:07 


DXPSCL 


MSG* 


5 


3C7E 


OODE 


LIBRARY 


03/08/78 


16:57:56 


DXPSCL 


SCIRTNS 


6 


3D5C 


0726 


LIBRARY 


03/09/78 


21:44:36 


SDSLNK 


«DATA 


6 


4E96 


04,1 E 










P*TERM 


7 


44S2 


0058 


LIBRARY 


03/08/78 


19 


! 14:34 


SDSMAC 


INIT*1 


8 


44DA 


0060 


LIBRARY 


03/08/78 


16 


:56:46 


DXPSCL 


P*INIT 


9 


453A 


00 IC 


LIBRARY 


03/08/78 


19 


.13:56 


SDSMAC 


PB*INIT 


10 


4556 


0002 


LIBRARY 


03/08/78 


19 


: 14:48 


SDSMAC 


RDI*T 


11 


4558 


0153 


LIBRARY 


03/08/78 


18 


!23:30 


DXPSCL 


REST*T 


12 


46B0 


0050 


LIBRARY 


03/08/78 


17 


:41sl3 


DXPSCL 


EOF* 


13 


4700 


0009 


LIBRARY 


03/08/78 


19 


:04:44 


SDSMAC 


RDLN$ 


14 


470A 


00E4 


LIBRARY 


03/08/78 


17 


:39:22 


DXPSCL 


ASSRT* 


15 


47EE 


OOOA 


LIBRARY 


03/08/78 


18. 


!54:24 


SDSMAC 


GET*CH 


16 


47F8 


002A 


LIBRARY 


03/08/78 


19 


:ll:17 


SDSMAC 


DEI«T 


17 


4822 


0268 


LIBRARY 


03/08/78 


18* 


! 12:08 


DXPSCL 


GET$RCOR 


IS 


4A3A 


OOCA 


LIBRARY 


03/08/78 


17 


:33:56 


DXPSCL 


ASSER* 


19 


4B54 


00C4 


LIBRARY 


03/08/78 


16. 


!46:33 


DXPSCL 


DEX*T 


20 


4C18 


024A 


LIBRARY 


03/08/78 


18 


: 15:03 


DXPSCL 



COMMON 


NO 


ORIGIN 


LENGTH 


CUR* 


1 


52B4 


0002 


FARM* 


7 


52B6 


OOOA 


HEAP* 


1 


52C0 


OOOE 


SYS*MS 


5 


52CE 


0020 


MEM* 


1 


52EE 


0522 






DEFINITIONS 



NAME 


VALUE 


NO 


NAME 


VALUE 


NO 


NAME 


VALUE 


NO 


NAME 


VALUE 


NC 


*ABEND$ 


005E 




»ABND$1 


0064 


1 


ASSER* 


4B8A 


19 


ASSRT* 


47EE 


15 


*CLCiSE* 


014E 




CLS* 


01A8 


1 


*CLS$FI 


0210 




«CMP*ST 


0242 




#i::reat* 


0262 




DEI*T 


484A 


17 


DEX$T 


4C3S 


20 


*DIV« 


03A8 




#DSTR*$ 


0408 




•«-DSTRY$ 


03FS 


1 


#DUMP$H 


044E 




#DUMP*P 


065E 




#DIJMP$S 


08FA 




#ENC*T 


0020 


1 


»ENI*T 


OCEO 




*ENS*T 


0E40 




■»ent$ 


008C 




ENT*1 


0070 


1 


ENT$2 


007C 




ENT*M 


0096 




ENT*S 


0114 




#ENX*T 


0F40 


1 


EOF* 


4700 


13 


*EOF*WR 


lOEE 




eoln$ 


llOE 




*FIND*S 


3254 


1 


FL*INI 


12B6 




*FREE* 


116C 




i3ET*CH 


47F8 


16 


*GET$ME 


1380 


1 


*GET*PA 


13DA 




GET*RC 


4AA2 


1; 


#GET$TC 


321E 




*G0* 


148 A 


1 


HALT* 


14F6 




*HEAP*T 


153E 




#INIT* 


1598 




INIT*1 


44F6 


8 


*INIT*D 


16FE 




IO*ERR 


186C 




*MAP$ 


1BC.6 




M0V*4 


1D9A 


1 


»M0V*5 


1D98 




*M0V*6 


1D96 




♦M0V*7 


1D94 




#M0V*8 


1D92 


1 


*MOV*N 


1D8C 




MSG* 


3C92 


5 


TI 990/10 SDSLNK 9 


39187 ♦A 


11/15 


/78 


08:31:22 








PAGE 


4 


NAME 


VALUE 


NO 


NAME 


VALUE 


NO 


NAME 


VALUE 


NO 


NAME 


VALUE 


NO 


*new* 


IDEA 




OPEN* 


209A 


1 


*OPN«FI 


2202 




P*INIT 


454A 


9 


*P*MAIN 


0003 




P*TERM 


449E 


7 


*PATCH* 


OOAA 




PB*INI 


4556 


IC 


PB*TER 


4556 


10 


*PRT$ME 


2410 


1 


PSCL** 


3AFC 


4 


*PUT*RC 


2740 


1 


*PUTCH* 


26FC 




RDI*T 


4574 


11 


RDLN* 


4724 


14 


README 


3A22 


3 


*RESM*$ 


0048 




REST*T 


46BE 


12 


*RESUM* 


28A4 




RET*1 


013C 


1 


RET*2 


0128 




RET*M 


0124 


1 


RET*S 


0126 




REWND* 


2810 


1 


REWRT* 


284A 




*RSUMR* 


28F6 


1 


*RWIND* 


291A 




S*GTCA 


43B4 


6 


#S*IADD 


3D5C 


6 


*S*IASC 


3DD0 


6 


*S*IDIV 


3E72 


6 


*S*IMUL 


3EB2 


6 


S*INT 


3F6C 


6 


*S$ISUB 


3D84 


6 


S$MAPS 


4104 


6 


*S*NAME 


2966 


1 


*S«NEW 


4196 


6 


S*PARM 


4222 


6 


S*PTCA 


43FC 


6 


♦S*RTCA 


443A 


6 


#S«SCPY 


424C 


6 


S*SETS 


42CA 


6 


*SCB*FR 


29D0 




#SCB*IN 


2A3C 


1 


SET*AC 


2AC2 


1 


«SET*NA 


2B84 


1 


♦STACK* 


2BAE 




♦STORE* 


322C 


1 


SUM- IT 


39E8 


2 


SVC$ 


2BCS 


1 


#T*VEC 


0000 




♦TERM* 


2E02 


1 


TX*ERR 


335A 


1 


*WRC$T 


3514 


1 


*WREOF* 


360A 




WRI*T 


366C 


1 


WRLN* 


3768 


1 


WRS*T 


37EC 


1 


*WRX*T 


38EE 











♦♦♦♦ LINKING COMPLETED 
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EXECUTION OF A PASCAL PROGRAM 



C3XPT 

EXECUTE TI PASCAL TASK 

PROGRAM FILE: PROGRAM FILE PATHNAME 

TASK NAME OR ID: PROGRAM NAME ( SEE 'TASK-- COMMAND ) 

INPUT: PATHNAME FOR PASCAL "INPUT' FILE 

OUTPUT: PATHNAME FOR PASCAL 'OUTPUT' FILE 

MESSAGES: LIST FILE PATHNAME FOR EXECUTION MESSAGES 

MODE: FOREGROUND OR BACKGROUND 

MEMORY: STACK AND HEAP MEMORY FOR EXECUTING PROGRAM 



EXAMPLE 



tlXPT 

EXECUTE TI PASCAL TASK 

PROGRAM FILE: T I. PASCAL. PROG 
TASK NAME OR ID: MYPROG 

INPUT: .TESTDATA 
OUTPUT: LPOl 
MESSAGES: ME 

MODE: FOREGROUND 
MEMORY: 



== FOREGROUND COMMAND EXECUTING == 



MYPROG EXECUTION BEGINS 

NORMAL TERMINATION 

STACK USED = 61S HEAP USED = 468 

EXECUTION OF PASCAL TASK IS COMPLETE. : 
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TASK RELATED SCI COMMANDS 



SHOW TASK STATUS ( STS ) COMMAND 



PURPOSE: TO DISPLAY THE STATUS OF ONE OR ALL TASKS CURRENTLY 
RUNNING UNDER DXIO. 



FORMAT: 

£1 STS 

SHOW TASK STATUS 

INSTALLED ID: < PROGRAM FILE TASK ID. > 
OUTPUT ACCESS NAME: < DEVICE OR FILE FOR STATUS LISTING 

EXAMPLE: 



C] STS 

SHOW TASK STATUS 

INSTALLED ID: 
OUTPUT ACCESS NAME: 



( NO ENTRY ==> ALL TASKS ) 

( NO ENTRY ==> STATION YOU ARE AT ) 



BID ID RUN ID STATION 
20 65 2 



20 






TATE 


PRIORITY 


FLAGl 


FLAG2 


WP 


PC 


09 


01 


5401 


0120 


4888 


2EF6 


17 


01 


5000 


0100 


4SBS 


6078 


05 


01 


6000 


0000 


0616 


06B4 
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KILL TASK < KT ) COMMAND 

PURF'OSE: to KILL AN ACTIVE TASK 
FORMAT: 

C] KT 
KILL TASK 

RUN ID: < RUNTIME ID OF TASK - SEE STS PRINTOUT > 
STATION NUMBER: < STATION WHERE TASK WAS EXECUTED - SEE STS > 



DELETE TASK ( DT ) COMMAND 

PURPOSE: TO DELETE A TASK FROM A PROGRAM FILE 
FORMAT: 

LI DT 
DELETE TASK 

PROGRAM FILE OR LUNO: < NAME OF PROGRAM FILE > 
TASK NAME OR ID: < INSTALLED ID OR NAME > 
EXAMPLE: 

LI DT 
DELETE TASK 

PROGRAM FILE OR LUNO: TI .PASCAL. PROG 
TASK NAME OR ID: MYPROG 



*#NOTE: A TASK MUST BE DELETED BEFORE A NEW TASK WITH THE SAME 
NAME OR ID MAY BE INSTALLED. 

IF THE "FORMAT IMAGE, REPLACE' LINK CONTROL COMMAND IS 
USED, THE OLD TASK IS AUTOMATICALLY DELETED AND THE NEW 
ONE INSTALLED IN IT'S PLACE. 
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MOD 10 



TEXT EDITOR 

(REF - DXIO REL. 3.0 MANUAL - SEC 2 OF VOL IV) 

INTRODUCTION 



THE TEXT EDITOR ALLOWS THE USER TO INTERACTIVELY CREATE AND MODIFY 
SOURCE PROGRAMS ON DISK FILES. THE TEXT EDITOR MAY BE USED TO CREATE 
AND MODIFY OTHER TYPES OF FILES AS WELL. 

THE TEXT EDITOR MAY BE EXECUTED FROM THE FOLLOWING PERIPHERALS: 



- 911 VDT 

- 913 VDT 

- 733 ASR OR KSR 

- 743 KSR 



STEPS IN EXECUTING THE TEXT EDITOR ON A VDT 

1. BID SCI (HIT RESET THEN !) 

IF SYSTEM RESPONDS WITH THE FOLLOWING SCREEN FORMAT, THEN GO TO 
STEP 4. 

SELECT ONE OF THE FOLLOWING COMMAND GROUPS 

/DEV - DEVICE OPERATIONS 

/FILE - FILE OPERATIONS 

/PSDEV - PROGRAM DEVELOPMENT 

/SMAIN - DXIO MAINTENANCE 

/SOP - DXIO OPERATION 

LI 

IF THE SYSTEM RESPONDS ONLY WITH THE BRACKETS PROMPT (CI), THEN GO 
TO STEP 2. 



I J 
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text; 

put terminal in vdt mode. 

if only the brackets prompt (c]) was printed, then the vdt is in 
tty mode and should be changed to vdt mode. this may be done 
using the modify terminal status (mts) command. (section 1, 
volum ii, dxio 3.0). 

user does the following (underlined information is entered by the 

USER ) . 

C: MTS 

MODIFY TERMINAL STATUS 

TERMINAL NAME: ME 

NEW STATUS (ON/OFF): ON 

NEW MODE (TTY/ VDT): VDT 

LOGIN REQUIRED?: NO 

USER PRIVILEGE CODE: 7 

DEFAULT MODE (TTY/ VDT): <CR> 



CDQ 
QUIT 



REBID SCI (RESET - ! ) 
(COMPUTER SHOULD RESPOND) 



SELECT ONE OF THE FOLLOWING COMMAND GROUPS 



/DEV - DEVICE OPERATIONS 

/FILE - FILE OPERATIONS 

/PDEV - PROGRAM DEVELOPMENT 

/SMAIN - DXIO MAINTENANCE 

/SOP - DXIO OPERATION 



C3 



(TERMINAL IS NOW IN VDT MODE) 
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TEXT3 

4. EXECUTE THE TEXT EDITOR ( XE ) 

c: XE 

INITIATE TEXT EDITOR 

FILE ACCESS NAME: PATANAME OF FILE TO BE EDITED 

CREATING A NEW PROGRAM 

1) CLEAR 'FILE ACCESS' FIELD < USE CLEAR KEY AS SHOWN BELOW ) 

2) HIT RETURN (NEW LINE - 913) 

I CLEAR KEY INFORMATION 

I 

I TERMINAL - 911 913 

I 

I CLEAR KEY - ERASE INPUT CLEAR 

NOTE: YOU WILL INDICATE THE FILE TO WHICH THE PROGRAM IS WRITTEN 
WHEN YOU QUIT TEXT EDITING. 



EXAMPLE - CREATE A NEW PROGRAM 



CDXE 

INITIATE TEXT EDITOR 

FILE ACCESS NAME: <CR> 



USE EDIT OPERATIONS 
TO CREATE PROBLEM 



HIT COMMAND (HELP-913) KEY 



C]QE 

QUIT EDITOR 

abort: no 



OUTPUT FILE ACCESS NAME: TI . PASCAL. SRC. MYPROG 

REPLACE: NO 
MOD LIST ACCESS NAME: <CR> 
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TEXT4 



OPERATION OF THE TEXT EDITOR 

CREATING A NEW FILE 

EXECUTE THE EDITOR 

FOLLOW THE STEPS ALREADY OUTLINED < XE ) 

■'#EOF'' SHOULD APPEAR ON SCREEN 

HIT 'F?-- KEY TO ENTER COMPOSE MODE 

HIT 'RETURN' ( NEW LINE - 913 ) 

ENTER YOUR PROGRAM 

RETURN TO EDIT MODE < "¥1" KEY AGAIN ) 

COMPOSE MODE 



ENTERED FROM EDIT MODE BY HITTING THE 'FT' KEY 

EACH TIME USER STRIKES 'RETURN^, A BLANK LINE IS GENERATED 

TABS ARE PRESET TO COLUMNS 1, 8, 13» 26, 8< 31 

ALL EDIT FUNCTIONS ARE ACTIVE 

RETURN TO EDIT MODE VIA 'FT-' KEY 

EXIT EDITOR VIA QUIT EDITOR (QE) COMMAND. 

EDIT MODE 



USED TO EDIT A NEWLY CREATED FILE OR AN EXISTING FILE 

TEXT EDITOR IS IN EDIT MODE WHEN IT IS EXECUTED 

'RETURN' (NEW LINE) KEY SIMPLY CAUSES CURSOR TO BE POSITIONED TO 

TABS ARE ACTIVE 

ALL EDIT FUNCTIONS ARE ACTIVE 

ENTER COMPOSE MODE BY HITTING THE 'F?' KEY 

EXIT EDITOR VIA QUIT EDITOR ( QE ) COMMAND. 



Hi 



TEXTS 



EDIT FUNCTIONS 



O ACTIVE IN BOTH EDIT AND COMPOSE MODES 

ALLOWS USER TO PERFORM CERTAIN EDITING FUNCTIONS BY STRIHaNG A 
PARTICULAR KEYBOARD CHARACTER. 



FUNCTIONS 

ENTER COMMAND MODE 
EDIT/COMPOSE FLIP (1) 
DISP/SUPRS LINE NO (2) 
CLEAR TO TAB 
ROLL UP 
ROLL DOWN 
DUP TO TAB 



913 


911 


KEYTOP 


KEYTOP 


HELP 


COMMAND 


F7 


F7 


F6 


F6 


F5 


F5 


ROLL UP 


Fl 


ROLL DOWN 


F2 


F4 


F* 



TTY 
CONTROL 

X 
V 
F 
E 
A 
B 
D 



NEW LINE 


NEW LINE 


TAB 


TAB 


BACK TAB 


BACK TAB 


INSERT LINE 


INS LINE 


DELETE LINE 


DEL LINE 


INSERT CHARACTER 


INS CHAR 


DELETE CHARACTER 


DEL CHAR 


CURSOR UP 




CURSOR DOWN 




CURSOR RIOHT 




CURSOR LEFT (BACKSPACE) 




HOME 


HOME 


ERASE 


CLEAR 



RETURN 






CAR RETN 


TAB SKIP 


(3) 




I 


LFT FLD 






T 


UNLABELED 


GRAY 


KEY 





ERAS INP 






N 


INS CHR 






*♦** 


DEL CHR 






U 
J 


HOME 






»♦*» 


ERAS FLD 






**** 



1). ALTERNATES MODES ON SUCCEEDING HITS 

2). ALTERNATES DISPLAY OF LINE NUMBERS < 74 DATA CHARACTERS ) WITH NO 
DISPLAY OF LINE NUMBERS ( 80 CHARACTERS ) 

3). THE --SHIFT' KEY MUST BE PRESSED SIMULTANEOUSLY WITH THE -TAB SKIP-' 
KEY TO ACHIEVE THE TAB FUNCTION ON THE 911 VDT 
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COMMAND MODE 

ENTERED BY HITTING THE COMMAND (HELP - 913) 

-i::- PROMPT IS DISPLAYED 

ALLOWS USER TO PERFORM EDITING FUNCTIONS BY ENTERING AN EDIT SCI 
COMMAND WITH PARAMETER SPECIFICATIONS. 



COMMAND COMMAND 

MNEMONIC DESCIRPTION 



XE - EXECUTE TEXT EDITOR 

QE - QUIT EDITOR 

CL - COPY LINES 

DL - DELETE LINES 

DS - DELETE STRING 

FS - FIND STRING 

IF - INSERT FILE 

ML - MOVE LINES 

MR - MODIFY ROLL 

MRM - MODIFY RIGHT MARGIN 

RS - REPLACE STRING 

MT - MODIFY TABS 

SL - SHOW LINE 
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TEXT7 
QUIT EDIT COMMAND (QE) 



ALLOWS USER TO EXIT EDITOR AND SAVE CHANGES MADE TO AN EXISTING FILE OR 
SAVE FILE WHICH WAS CREATED. 

TO QUIT EDITOR 

HIT COMMAND (HELP - 913) KEY TO ENTER COMMAND MODE 

LI PROMPT IS DISPLAYED 

ENTER QE 

THE FOLLOWING MESSAGE IS DISPLAYED 

QUIT EDITOR 

ABORT: NO 

USER RESPONDS 

Y - ABORT EDIT SESSSION - NO CHANGES ARE SAVED 
RETURN - OUTPUT MESSAGE IS DISPLAYED ( SEE NEXT PAGE > 
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TEXTS 



OUTPUT FILE ACCESS NAME: TI . PASCAL. SRC. LAKESl 
REPLACE?: NO (2) 
MOD LIST ACCESS NAME: (3) 



(1) 



(1) USER ENTERS 
RETURN 

NEW FILE NAME 



TO USE DISPLAYED FILE AS OUTPUT FILE FOR 
EDITED TEXT 

TO HAVE EDITED TEXT TO GO TO ANOTHER FILE 
AND PRESERVE OLD FILE. 



(2) USER ENTERS 
RETURN 

YES 



INDICATES USER DOES NOT WISH TO REWRITE AN 
EXISTING FILE 

OUTPUT FILE IS TO BE REPLACED IF IT ALREADY 
EXISTS 



<3) USER ENTERS 
RETURN 
FILE OR DEVICE NAME 



NO LISTING OF MODIFICATIONS IS OBTAINED 

LIST OF MODIFICATIONS TO FILE IS OUTPUT TO 
NAME SPECIFIED. 



*THE OTHER COMMANDS ARE DESCRIBED IN SECTION 2.4.1 OF VOLUME IV OF 
THE DXIO MANUAL. 
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SUMMARY 

TEXT EDITOR 

O ALLOWS THE USER TO CREATE AND MODIFY TEXT FILE? 
PROVIDES 3 MODES OF OPERATION 

COMPOSE MODE 



USED TO CREATE NEW FILES 

USED TO INSERT LARGE BLOCKS OR RECORDS INTO EXISTING FILES 

ENTER FROM EDIT MODE VIA 'F?' KEY 

BLANK LINE GENERATED EACH TIME -RETURN^ (NEW LINE) IS ENTERED 

RETURN TO EDIT MODE VIA 'F7' KEY 



EDIT MODE 

USED TO EDIT EXISTING FILES 

EDITOR IS IN EDIT MODE WHEN IT IS INITIALLY EXECUTED 

ENTER COMPOSE MODE VIA -Fy KEY 

EXIT EDITOR VIA ^QE^ COMMAND 



COMMAND MODE 

USED TO PERFORM PREDEFINED EDIT FUNCTIONS 

ENTER FROM EDIT OR COMPOSE MODE VIA 'CMD' (HELP) KEY 

EXIT EDITOR VIA -QE' COMMAND 
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TEXTIO 

DISPLAY A LISTING 

ONCE A LISTING FILE HAS BEEN GENERATED, IT MAY BE DISPLAYED IN ONE OF TWO 
WAYS. 

SHOW FILE COMMAND 



PURPOSE: DISPLAYS THE CONTENTS OF A SPECIFIED FILE AT YOUR STATION 
FORMAT: 

C3SF 
SHOW FILE 

FILE PATHNAME: PATHNAME OF FILE TO BE DISPLAYED 

PRINT FILE COMMAND 



PURPOSE: TO PRINT THE CONTENTS OF A FILE TO A LISTING DEVICE. 
FORMAT: 

C3PF 
PRINT FILE 

FILE PATHNAME: PATHNAME OF FILE TO BE PRINTED 

ANSI FORMAT! NO 

LISTING DEVICE: LISTING DEVICE NAME 

DELETE AFTER PRINTING?: NO 

NUMBER OF LINES/PAGE: <CR> 

EXAMPLE: 



C] PF 
PRINT FILE 

FILE PATHNAME: TI . PASCAL. LST. MYPROG 

ANSI FORMAT: NO 

LISTING DEVICE: LPOl 

DELETE AFTER PRINTING?: NO 

NUMBER OF LINES/PAGE: <CR> 
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MODll 
DATA TYPES 



OBJECTIVES: 

- BE ABLE TO DECLARE A VARIABLE TO BE OF THE FOLLOWING TYPES-" 

BOOLEAN 

SCALAR 

SUBRANGE 

ARRAY 

RECORD 

- BE ABLE TO ACCESS ELEMENTS OF AN ARRAY. 

- BE ABLE TO ACCESS FIELDS OF A RECORD. 

- GIVEN A SCALAR DECLARATION BE ABLE TO DETERMINE THE VALUE OF 
THE FUNCTIONS ORD, SUCC, AND FRED. 

AGENDA 

1. TYPE BOOLEAN 

2. SCALARS 

3. SUBRANGES 

4. ARRAYS 
WORKSHEET 

5. PACKED ARRAYS 

6. RECORDS 
WORKSHEET 
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TYPE BOOLEAN 



definition: THE VALUE OF A VARIABLE OF TYPE BOOLEAN IS EITHER TRUE 
OR FALSE 



SYNTAX: VAR <BOOLEAN VARIABLE> : BOOLEAN; 



example: VAR SUCCESS : BOOLEAN? 



SUCCESS := FALSE; 

IF VALUE = 10 THEN SUCCESS := TRUE; 



A BOOLEAN EXPRESSION CAN BE DIRECTLY ASSIGNED TO A BOOLEAN VARIABLE 

EXAMPLE: THE ABOVE •'IF' STATEMENT CAN BE REWRITTEN AS 
SUCCESS := VALUE =10; 

A BOOLEAN VARIABLE MAY BE TESTED INSTEAD OF A BOOLEAN EXPRESSION 

EXAMPLE: IF SUCCESS THEN <STATEMENT> 
ELSE <STATEMENT>; 



ii? 



OPERATIONS ON BOOLEAN VARIABLES OR BOOLEAN EXPRESSIONS 



LOGICAL OPERATORS: 



THE FOLLOWING OPERATORS YIELD A VALUE OF TRUE OR FALSE WHEN APPLIED T 
BOOLEAN VARIABLES: 



NOT 
AND 
OR 



OPERATOR PRECEDENCE: 



* / MOD DIV 

+ - 

NOT 
AND 
OR 



HIGHEST PRECEDENCE 



LOWEST PRECEDENCE 



I of' 



NOT 



NOT IS TRUE WHEN THE OPERAND IS FALSE 



examples: 



NOT 


(5 > 3) FALSE 


NOT 


SUCCESS 




WHEN SUCCESS = TRUE FALSE 




WHEN SUCCESS = FALSE TRUE 



NOT (I = 10) 

WHEN I = 10 
WHEN 1=5 
WHEN I = 15 



FALSE 

TRUE 

TRUE 



AND 



AND IS TRUE ONLY WHEN BOTH OPERANDS ARE TRUE 



EXAMPLES: 



1 > 3 AND 10 = 10 

I <='20 AND FINISHED 



FALSE 



WHEN 


I 


= 10 


FINISHED = TRUE 


TRUE 


WHEN 


I 


= 20 


FINISHED = FALSE 


FALSE 


WHEN 


I 


= 30 


FINISHED = TRUE 


FALSE 



X <> Y AND NOT SUCCESS 

WHEN X = Y SUCCESS = FALSE FALSE 
WHEN X = 5, Y = 10, SUCCESS = TRUE FALSE 
WHEN X = 10, Y = 4, SUCCESS = FALSE TRUE 
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OR 



OR IS TRUE WHEN ONE OR BOTH OF THE OPERANDS IS TRUE. 



T 



examples: 1 < 3 OR 10 > 5 
1 < 3 OR 15 < 20 
1 > 3 OR 15 > 3 



TRUE 
TRUE 
TRUE 



I <= 10 OR SUCCESS 

WHEN I = 57 SUCCESS = TRUE 
WHEN 1=11, SUCCESS = TRUE 
WHEN 1=11, SUCCESS = FALSE 



TRUE 
TRUE 
FALSE 



I <== N OR NOT FOUND 

WHEN 1=5, N = 10, FOUND = FALSE TRUE 

WHEN I = 10, N = 10, FOUND = FALSE TRUE 

WHEN I = 11, N = 10, FOUND = TRUE FALSE 

WHEN I = 11, N = 10, FOUND = FALSE TRUE 



/Tc?- 



A BOOLEAN OPERATOR CAN SIMPLIFY A NESTED -IF'- 

example: if X > THEN 

IF <X / 2) < N THEN 

CAN BE REPLACED WITH 

IF X > AND (X / 2) < N THEN 

IF CODE < 1 THEN 

ERROR := TRUE 
ELSE IF CODE > 5 THEN 

ERROR := TRUE! 
CAN BE REPLACED WITH 
IF CODE < 1 OR CODE > 5 THEN 

ERROR := TRUE? 

IN EACH CASE DETERMINE IF THE STATEMENT WILL EXECUTE: 
IF I <: 10 AND NOT FINISHED THEN <STATEMENT> 

WHEM 1=3, FINISHED = FALSE YES 

WHEN I = 10, FINISHED = FALSE NO 

WHEN I = 10, FINISHED = TRUE NO 

WHEN 1=5, FINISHED = FALSE YES 

IF I < 10 OR NOT FINISHED THEN <STATEMENT> 

WHEN I <: 10, FINISHED = FALSE YES 

WHEN I = 10, FINISHED = FALSE YES 

WHEN I = 10, FINISHED = TRUE NO 

WHEN 1=5, FINISHED = FALSE YES 
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SCALARS 

definition: AN ORDERED LIST OF IDENTIFIERS 

SYNTAX: TYPE<NAME>= (<IDENTIFIER>, ..., <IDENTIFIER>) ; 

* THE IDENTIFIERS MUST BE UNIQUE. 

* SCALARS ARE NUMBERED STARTING WITH ZERO. 

* YOU MAY NOT DO ARITHMETIC ON SCALAR VARIABLES. 

* YOU CAN'T READ OR PRINT OUT A SCALAR VALUE. 

EXAMPLES: TYPE FAMILY = (MOTHER, FATHER, SON, DAUGHTER); 
TYPE PET = (CAT, DOG, BIRD, FISH); 
VAR PARTIES: (REPUBLICAN, DEMOCRAT); 
VAR VOWELS: (A,E,I,0,U); 



SCALARS MAY BE USED FOR THE FOLLOWING: 

- AS AN ARRAY INDEX 

- AS A FLAG 

- TO IMPROVE CODE READABILITY 



EXAMPLE: TYPE COLOR = ( WHITE, RED, BLUE, YELLOW, PURPLE, 

GREEN, ORANGE, BLACK ); 
VAR C, Cl: COLOR; 

SUCCESS ; BOOLEAN; 



IF C > WHITE THEN <STATEMENT; 
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SCALAR VARIABLES MAY BE USED AS A FLAG WHEN MORE THAN 2 STATES ARE 
NEEDED. 



EXAMPLE! TYPE SIGN = (POSITIVE, ZERO, NEGATIVE); 
VAR ISIGN ! SIGN; 

I : INTEGER; 
BEGIN 

READ(I); 

IF I > THEN ISIGN := POSITIVE 
ELSE IF I = THEN ISIGN s= ZERO 
ELSE ISIGN := NEGATIVE; 

■ 

<* TEST ISIGN ♦) 

IF ISIGN = POSITIVE THEN WRITE(I) 

ELSE IF ISIGM = NEGATIVE THEN WRITE(-I) 

ELSE WRITECI IS ZERO"); 



NOTES: SIGN IS A GENERAL TYPE. ISIGN IS A SPECIFIC INSTANCE OF A 
VARIABLE OF TYPE SIGN. POSITIVE, ZERO, AND NEGATIVE ACT 
LIKE CONSTANTS. 



h's- 



SCALAR OPERATIONS 

YOU MAY DO NO ARITHMETIC ON SCALARS. 

SCALARS MAY BE MANIPULATED WITH THE FOLLOW I NO FUNCTIONS: 

PRED(X) (X'S PREDECESSOR) GIVES THE SCALAR BEFORE X 
SUCC(X) (X'S SUCCESSOR) GIVES THE SCALAR AFTER X 
ORD(X) GIVES X-'S NUMBER IN THE ORDERING. SCALARS 
ARE NUMBERED STARTING WITH 0. 

EXAMPLES: TYPE PRIMARY = (RED, BLUE, YELLOW)? 

TYPE SUIT = (SPADE, CLUB, HEART, DIAMOND); 
VAR X, Y: PRIMARY; 

X := RED? 

Y := SUCC(X); (♦ Y WILL BE BLUE *) 

ORD( SPADE) == 

ORD(BLUE) = 1 

SUCC(CLUB) = HEART 

PRED(RED) = UNDEFINED WILL GIVE AN ERROR 

SUCC( DIAMOND) = UNDEFINED 



IF X > SPADE THEN 
X := PRED( X )• 



LC 
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SUBRANGES 



definition: 



SUBRANGES ARE USED WHEN WE KNOW A VARIABLE WILL ONLY 
HAVE A SUBSET OF ITS POSSIBLE VALUES. (I.E. INTEGERS 
FROM 1 TO 10 OR GRADES FROM TO 100. 

* SUBRANGES OF THE TYPE REAL ARE NOT ALLOWED 



SYNTAXs VAR <IDENTIFIER> : <LOWER BOUND> .. <UPPER BOUND> 

THESE TWO DOTS ACTUALLY 
APPEAR IN THE PROGRAM 



# BOTH LOWER BOUND AND UPPER BOUND MUST BE CONSTANTS 

♦ YOU CANNOT SAY VAR I : .. N + 1 

EXAMPLE: TYPE TESTSCORE = 0. . 100; 

VAR MYSCORE, YOURSCORE : TESTSCORE; 

OR 
VAR MYSCORE, YOURSCORE : 0..100 

TYPE IQ = .. 200; (* SUBRANGE OF INTEGER*) 

DAYS = (MON, TUE, WED, THU, FRI, SAT, SUN)! 
WORKD = MON. .FRI ; (*SUBRANGE OF SCALER TYPE 'DAYS'*) 
LETTER = •' A •'..•' Z •' ; ( ♦SUBRANGE OF CHARACTERS* ) 



SUBRANGES MAY INTERSECT: 
EXAMPLE: VAR A : 10.. 20; 

B : 15.. 20; 

C : 21. .30; 
RUNTIME OPTION CKSUB 



IN THIS CASE A := B IS LEGAL 

A := C IS ILLEGAL 
B := A BE CAREFUL! 



- ENABLES OR DISABLES THE CHECKING OF SUBRANGE ASSIGNMENTS AND 
THE RESULTS OF PRED AND SUCC FUNCTIONS 

- DEFAULT IS FALSE 
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ARRAYS 

DEFINITION: SAME IDEA AS FORTRAN, BUT MORE GENERAL. 

syntax: VAR <ARRAY NAME> : ARRAYC<INDEX TYPE>] OF <:BASE TYPE> 

INDEX TYPES 

* INTEGER 

* LONG I NT 

* CHAR 

* BOOLEAN 

* SCALAR 

* SUBRANGE 

BUT NOT REAL ! 

EXAMPLE! CONST N = 205 

TYPE IQ = 0..200; 

PEOPLE = (JANE, BILLIE, LES); 
C = ARRAYC1..N3 OF CHAR5 

VAR INT : ARRAYCO..N] OF INTEGER! 

CH : ARRAYCCHAR] OF 0..64; (♦ CH WILL BE INDEXED BY 

(# CHARACTERS *) 

INTELL : ARRAYCPEOPLE] OF IQ5 (» INTELL WILL BE INDEXED 

(* BY JANE, BILLIE, OR *) 
(* LES *) 

NAME : ARRAY [PEOPLE] OF C; 

NAMES : ARRAY C PEOPLE 3 OF ARRAY C1..N3 OF CHAR; 

(» NAME AND NAMES DEFINE THE SAME ARRAY *) 
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ACCESSING ARRAYS 



GIVEN VAR I : INTEGER; A : CHAR? 

NAMES ! (JANE, LES, BILLIE); 

INTC I : INDEXING BY AN INTEGER 

INTC I + 1 H 

CHC'A"] INDEXING USING CHARACTERS 

INTELLC JANE 1 INDEXING USING A SCALAR 

MULTIDIMENSIONAL ARRAYS 

SYNTAX: VAR As ARRAYC1..103 OF ARRAYC1..203 OF INTEGER 

OR 
VAR A: ARRAYC1..10, 1..20] OF INTEGER 

ACCESSING AN ELEMENT: 
ACI, J: := X 

I REFERS TO THE ROW 

J REFERS TO THE COLUMN 

EXAMPLES: TYPE STUDENT = (JAMES, JOHN, SAM, SALLY); 

VAR GRADES : ARRAY [STUDENT, I..IO: OF 0. . 100; 
GRADES C JOHN, 23 

*#NOTE: ON THE 913, '(.••■ AND ' . ) " SUBSTITUTE FOR ■•L" AND ■"l-'. 
COMPILER OPTION CK INDEX 



ENABLES OR DISABLES CHECKING FOR ARRAY INDICES WITHIN RANGE. 
DEFAULT— FALSE 






I -- 
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PUCfESS 5= FALSE; 

WHTL.E (I <:=^ M) AND NOT SUCCESS DO 
TF At: I] -^ V THEN 

SUCCESS := TRUE ( •» NO •■;••■ ^) 
EL.S.E I : = I + I ( ■«■ NO " ? ■' <- ) 

END? (* SEARCH *) 

INSERT V AFTER THE ITH ELEMENT 



ASSUME THERE ARE LESS THAN N ELEMENTS IN THE ARRAY SO THAT T! !E 
LAST POSITION IS VACANT 



PROCEDURE INSERT ( V : T; I : INTEGER); 



BEGIN 

FOR J := N - .1. DOWNTO I + 1 DO 

A [ J + 1 I) : - A C J ]; (* MOVE EACH ELEMENT DOUN OivE «) 

A L T + 1 :| ;^ V ( K- INSERT V m- ) 

E^^^: 



UJr-ite s FM'Ocedure DE'L.ETE uthich u.ii11 clifltt* th* T' tn e i -^riii-'r! I fr .jni 
::, n A r- r :-\ ■■■■■ , T ! '! <^ I n iJ e ;:•:: Ci F 1 1 'i e s 1 e rri « ri t i: o ■ :> e • J *=? 1 e t ■■■; d ? ■ t o u '■ d - .■ <'v ^ ■■■■'. ■'- -■ -■■ 

^ r, ri p M f' ri rji !^ h '^ t" r 
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WORKSHEET 7 



1. WRITE THE DECLARATION STATEMENT TO DECLARE A VARIABLE ••FOUND- 
AS TYPE BOOLEAN. 



DECIDE WHETHER THE FOLLOWING BOOLEAN EXPRESSIONS ARE TRUE OR 
FALSE 

2. NOT (6 < 9) 

3. NOT DONE WHEN DONE = FALSE 

4. WHEN DONE = TRUE 

5. (4 < 10) AND <1 > 0) 
SUCCESS OR ENDLIST 

^'. WHEN SUCCESS = FALSE, ENDLIST = TRUE 

7. WHEN SUCCESS = TRUE, ENDLIST = FALSE 

8 WHEN SUCCESS = FALSE, ENDLIST = FALSE 

9. REWRITE THE FOLLOWING NESTED -IF-' STATEMENT AS A SINGLE •'IF'' 
STATEMENT USING A LOGICAL OPERATOR 

IF I <= N THEN 

IF NOT SUCCESS THEN 
<STATEMENT> 



10. WRITE THE DECLARATION STATEMENT TO DECLARE A TYPE LANGUAGE At 
A SCALAR WHICH MAY BE ONE OF THE FOLLOWING: FORTRAN, PASCAL, 
COBOL . 



GIVEN THE DECLARATION: 

VAR DOGS : (COLLIE, SPANIEL, SHEPHERD, MUTT) 

U. ORD(SPANIEL) = 

12. SUCC( SHEPHERD) = 

13. SUCC(MUTT) = 

14. PRED(MUTT) = 
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15. USING A SUBRANGE, DECLARE A TYPE -BIT' WHICH 
CAN HAVE VALUES FROM TO 15. 



16. WRITE THE VAR STATEMENT TO DECLARE AN ARRAY 'WORDS 
CONSISTING OF FROM 1 TO 10 CHARACTERS. 



17. DECLARE A 2~DIMENSI0NAL ARRAY CLASS OF ARRAY OF GRADES. 
THERE ARE 20 STUDENTS IN THE CLASS AND EACH STUDENT HAS 
10 GRADES. 



IQ. WRITE A STATEMENT WHICH WILL ASSIGN THE 4TH STUDENT IN THE 
CLASS OF THE ABOVE ARRAY A GRADE OF 95 ON THE FIRST TEST. 



lb. 
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PACKED ARRAYS 



DEFINITION! A PACKED ARRAY ECONOMIZES STORAGE BY STORING 
SEVERAL COMPONENTS IN ONE WORD. 



SYNTAX: VAR <NAME> ! PACKED ARRAYCNl. .N23 OF <TYPE> 

EXAMPLE: VAR BOOL : PACKED ARRAYC1..16D OF BOOLEAN 
'BOOL' WILL TAKE ONE 16-BIT WORD. 

TYPE X = PACKED ARRAYC1..4] OF 0..7; 
(♦ WILL TAKE 1 16-BIT WORD *) 

Y = PACKED ARRAYCL.Sa OF X? 

(* Y WILL TAKE 60 BITS OR 4 WORDS ♦) 
OR 

Y = PACKED ARRAYC1..5, 1..43 OF 0..7? 



NOTE: IF THE COMPONENTS OF AN ARRAY REQUIRE ONE WORD OR MORE 
OF STORAGE, PACKING THAT ARRAY HAS NO EFFECT ON THE 
STORAGE ALLOCATION. 
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PACK AND UNPACK 



THE PROGRAMMER MAY PACK OR UNPACK AN ARRAY A BY USING THE 
PROCEDURES •- PACK < A , I , Z ) '' AND •' UNPACK < 2 . A , I ) •- 

PACK ( A, I, Z) MEANS FOR J : = U TO V DO 

ZCJ] := AC J - U + I] 

UNPACK(2,A,I) MEANS FOR J := U TO V DO 

ACJ - U + 13 := ZCJ] 



J IS THE "FOR LOOP" INDEX 

A IS THE UNPACKED ARRAY 

Z IS THE PACKED ARRAY 

I IS THE INDEX INTO THE UNPACKED ARRAY 



**NOTE: THE PASCAL COMPILER WILL UNPACK A PACKED ARRAY IF 
YOU REFERENCE AN ELEMENT OF THE ARRAY, AND THEN 
REPACK THE ARRAY. 

TO SAVE TIME UNPACK THE ARRAY WHILE IT IS BEING 
ACCESSED THEN REPACK IT. 



STORAGE FOR UNPACKED ARRAY 



STORAGE FOR PACKED ARRAY 



C 

A 



C 

T 
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USING PACK AND UNPACK 



VAR A : ARRAY C 1..5 ] OF INTEGER; 

P : PACKED ARRAY C 1..5 3 OF INTEGER; 



1 



SET ELEMENTS OF P = 
P = 













PACK (A 


l,l7P) 






P = 




PACK ( 


(A,3,P) 




1 


P = 






2 




2 




3 




3 




4 




4 




5 




2 
3 


SET ELEMENTS OF A = 






A = 














VAR U : ARRAY 1 


CI. .10] 







P : PACKED 


ARRAY C 







PACK<U,l7P) 







P= 


1 
2 


UNPACK 


(P,A,1) 




3 


A = 






4 




1 




5 




2 








3 


UNPACK 


(P,U,1) 




4 


U = 






5 




1 
2 


SET ELEMENTS OF A = 




3 


A = 






4 









5 











































UNPACK 


(P,A,2) 






A = 



1 







OF INTEGER 
CI.. 5] OF INTEGER 



11.,'f 



STRINGS 



definition: 



A STRING IS A PACKED ARRAY OF TYPE CHAR. 
» THE LOWER INDEX OF THE ARRAY MUST BE 1 

* A STRING MAY NOT BE LONGER THAN 70 CHARACTERS 

* ANY CHARACTER MAY BE REPRESENTED IN A STRING BY A 

# FOLLOWED BY ITS 2-DIGIT HEXADECIMAL CHARACTER CODE. 
THIS ENABLES UNPRINTABLE CONTROL CHARACTERS TO BE 
INCLUDED IN STRINGS. 



EXAMPLE: VAR STRING : PACKED ARRAYC1..N3 OF CHAR; 



STRING := "THIS IS A STRING'; 
STRING := 'ABC; 
STRINGCl] := 'A'; 



(# OK IF N = 16 *) 
(* OK IF N = 3 *> 



RELATIONAL OPERATORS MAY BE USED ON STRINGS IF THEY ARE THE SAME 
TYPE AND SAME LENGTH. 



EXAMPLE: VAR STRl, STR2 : PACKED ARRAYC1..10: OF CHAR; 
STR3 : PACKED ARRAY CI.. 163 OF CHAR; 
STR4 : PACKED ARRAY C 5.. 8] OF CHAR; 



STRl := STR2 

IF STRl < STR2 THEN 
X := l; 

IF STR2 >= STR3 THEN 
X := 2; 

STR4 := 'WORD'; 

STRl := 'STRING '! 

STRl := 'STRING'; 



(♦ OK *) 



(* OK #) 

(» NOT LEGAL — STR2 AMD STR3 ») 
(* ARE NOT THE SAME LENGTH *) 

(* NOT LEGAL — INDEX DOESN'T #) 
(* START AT 1 *) 

(•«■ OK *) 



(•«• ILLEGAL — MUST HAVE 10 



*) 



RECORDS- 



RECORDS ARE A USEFUL WAY OF GROUPING RELATED DATA TOGETHER. 

<TYPE>? 



syntax: record 

•cfield; 



<:FIELD> : <TYPE> 
END 



(♦NO ! *) 



example: DECLARE A TYPE DATE WHICH IS A RECORD CONTAINING 
THE DAY, MONTH, AND YEAR. 



TYPE DATA = 



RECORD 
DAY : 
MO ! 
YR ! 

END? 



1..31; 
1..12; 
INTEGER 



VAR MYBIRTHDAY : DATE; 

HOLIDAYS : ARRAY C 1..103 OF DATA; 



EXAMPLE: DECLARE A TYPE EM_DATA WHICH IS A RECORD CONTAINING 
THE EMPLOYEES NAME (UP TO 20 DIGITS) AND HIS SOCIAL 
SECURITY NUMBER. 
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ACCESSING A FIELD IN A RECORD 



SYNTAX! <:record>.<:field NAME> 



EXAMPLE: GIVEN THE FOLLOWING RECORD, ASSIGN MYBIRTHDAY TO BE 
9/20/47 

TYPE DATE = RECORD 

DAY ! l..:31; 
MO : 1..12; 
YR : INTEGER 
END; 
VAR MYBIRTHDAY : DATE? 

HOLIDAYS : ARRAY C 1..10 ] OF DATE; 



MYBIRTHDAY. DAY := 20? 
MYBIRTHDAY. MO := 9; 
MYBIRTHDAY. YR := 1947; 



ASSIGN THE FIRST HOLIDAY TO BE NEW YEARS DAY THIS YEAR. 



^ 



NESTED RECORDS 



example: declare A RECORD WHICH WILL CONTAIN A STUDENT-S 
NAME (UP TO 20 CHARACTERS), HIS SCHOOL ENTRANCE 
DATE AND THE DATE HE GRADUATED. 



TYPE STU-DATA = 



RECORD 

NAME : PACKED ARRAY C 1 . . 20 
ENTERED : RECORD 



3 OF CHAR; 



GRADUATED 



DAY 
MO 
YR 
END; 

: RECORD 
DAY 
MO 
YR 
END 



1. .31; 
1. . 12; 
INTEGER 



1. .31; 
1. . 12; 
INTEGER 



END; 



VAR STUDENT 



STU-DATA ; 



STUDENT. NAME := -.JANE LOBDILL 
STUDENT. ENTERED. DAY 5= 15? 

STUDENT. ENTERED. MO := 9; 

STUDENT. ENTERED. YR := 1966; 

STUDENT. GRADUATED. DAY := 20; 

STUDENT. GRADUATED. MO := 6; 

STUDENT . GRADUATED , YR : = 1 969 ; 



EXAMPLE: CONSTRUCT A RECORD WHICH WILL CONTAIN THE FOLLOWING 
information: 



EMPLOYEE NUMBER (6 DIGITS) 
SOCIAL SECURITY NUMBER (9 DIGITS) 
NUMBER OF DEPENDENTS 
DATE EMPLOYED 



PACKED RECORDS 



EXAMPLE 



TYPE R = PACKED RECORD 



A 
J 
K 
L 



PACKED ARRAY 

0. .7; 

0. .#FFF; 

INTEGER 



CI. . 10.1 OF 1 



END; 



A 
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SUMMARY 



A BOOLEAN VARIABLE MAY HAVE A VALUE OF TRUE OR FALSE. 

A BOOLEAN EXPRESSION MAY BE ASSIGNED TO A BOOLEAN VARIABLE. 

A BOOLEAN VARIABLE MAY BE TESTED INSTEAD OF A BOOLEAN EXPRESSION. 

•■AND', -OR', AND 'NOT', ARE LOGICAL OPERATORS AND MAY BE APPLIED 

TO BOOLEAN VARIABLES. 

'NOT-- IS TRUE WHEN THE OPERAND IS FALSE. 

-■AND'' IS TRUE WHEN BOTH OPERANDS ARE TRUE. 

•'OR-- IS TRUE WHEN AT LEAST ONE OF THE OERANDS IS TRUE. 

A BOOLEAN OPERATOR CAN SIMPLIFY A NESTED ''IF'. 

SCALARS ARE AN ORDERED LIST OF IDENTIFIERS. 

YOU MAY DO NO ARITHMETIC ON SCALARS OR READ THEM OR PRINT THEM 

OUT. 

SCALARS ARE USED TO INDEX ARRAYS OR AS A FLAG. 

SCALAR OPERATIONS ARE PRED, SUCC, AND ORD. 

A SUBRANGE IS A SUBSET OF VALUES. 

ARRAYS ARE SIMILAR TO FORTRAN ARRAYS. THE INDEX MAY NOT BE OF TYPE 

REAL. 

RECORDS ARE A WAY OF GROUPING RELATED DATA TOGETHER. 



no 
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1. WRITE THE DECLARATION FOR A STRING OF 10 CHARACTERS CALLED WORD. 



WRITE STATEMENTS TO DO THE FOLLOWING: 

ASSIGN •-WORD'- THE VALUE ••DEVELOPING' 

ASSIGN -WORD- THE VALUE 'TOM- 
ASSIGN '-WORD-- THE VALUE ALL BLANKS. 



5. DECLARE A RECORD 'DOG' WHICH CONTAINS THE FOLLOWING 
INFORMATION: 

BREED ( UP TO 10 CHARACTERS) 
DOG'S NAME ( UP TO 20 CHARACTERS) 
DOGS REGISTRATION NUMBER (UP TO 9 DIGITS) 



6, ADD TO TYPE DOG ABOVE ANOTHER FIELD WHICH IS THE DOG'S 

BIRTHDAY. THE BIRTHDAY SHOULD HAVE 3 FIELDS, MONTH, DAY. 
AND YEAR. 



ni 



GIVEN THE FOLLOWING DECLARATIONS ASSIGN STUDENT 1 A GPA OF 3.5 

TYPE DATA = RECORD 

NAME : PACKED ARRAY C 1 . . 20 ] OF CHAR; 

MAJOR : PACKED ARRAY C 1..3 ] OF CHAR; 

GPA : REAL; 

HRS_COMPL : INTEGER 
END; 
VAR STUDENT 1 : DATA; 



8. GIVEN THE FOLLOWING DECLARATIONS ASSIGN PROJECT 1 A STARTING 
DATE OF MAY 12, 1977. 

TYPE DATA = RECORD 

PROJ_NAME : PACKED ARRAY C 1..10 3 OF CHAR; 
TOTAL-BUDGET: REAL; 
DATE_STARTED = RECORD 

DAY : 1..31; 



MO : 1..12: 
YR : INTEGER 



END 



END; 
VAR PROJECT 1 : DATA; 



GIVEN THE FOLLOWING DECLARATIONS, WRITE ASSIGNMENT STATEMENTS 
TO ENTER A PURCHASE DATE OF JUNE 21, 1977 FOR AUTO #3. 

TYPE CAR = RECORD 

DATE_PURCHASED = RECORD 

DAY : 1..31; 
MO i 1..12; 
YR : INTEGER 
END 
END; 

VAR OUR_CARS s ARRAY C 1.-3 3 OF CAR; 



/ 79- 
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PROGRAM CONTROL STATEMENTS II 



OBJECTIVES: 

- BE ABLE TO USE THE FOLLOWING PROGRAMMING STRUCTURES 
REPEAT-UNTIL LOOP 
CASE STATEMENT 
WITH STATEMENT 



AGENDA 

1. PROGRAMMING STRUCTURES 

- REPEAT-UNTIL 

- CASE STATEMENT 

- WITH STATEMENT 



WORKSHEET 
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REPEAT-UNTIL 



SYNTAX: REPEAT 

<STATEMENT>; 



<STATEMENT>; 
UNTIL <:B00LEAN EXPRESSION^-; 



* REPEAT-UNTIL EXECUTES ONE OR MORE STATEMENTS REPEATEDLY 
UNTIL A CERTAIN CONDITION IS TRUE. 



* A -BEGIN-END'" BLOCK IS NOT USED. 



EXAMPLE: VAR CH: CHAR; 



REPEAT 

READ(CH); 

WRITE(CH); 
UNTIL CH = ■•♦'■; 



WHILE-DO 



REPEAT-UNTIL 



START 



START 



TEST 



STATEMENT 



STATEMENT 



TEST 



* WHILE-DO MAKES THE TEST BEFORE THE FIRST ITERATION OF THE LOOP. 
REPEAT-UNTIL MAKES THE TEST AFTER THE FIRST ITERATION OF THE 
LOOP. 

* USE 'REPEAT-UNTIL-- WHEN THE VARIABLE BEING TESTED WILL NOT BE 
DEFINED ON THE FIRST PASS. (CH WAS NOT DEFINED UNTIL IT WAS 
READ. ) 
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CASE STATEMENT 

SYNTAX: CASE <EXPRESSION> OF 

<CASE LABEL>,... ,<CASE LABEL> : <STATEMENT>! 

■ 

<CASE LABEL>,...,<CASE LABEL> : STATEMENT 
C OTHERWISE <STATEMENT>? . . . ; <STATEMENT> 1 
END 



WHEN A CASE STATEMENT IS EXECUTED: 

- THE EXPRESSION IS EVALUATED 

- CONTROL PASSES TO THE STATEMENT WHOSE LABEL EXACTLY 
CORRESPONDS TO THE VALUE OF THE EXPRESSION. 

- CONTROL PASSES TO THE NEXT STATEMENT FOLLOWING THE 
END OF THE CASE STATEMENT. 



EXAMPLE: VAR I : INTEGER 

CASE I OF 

: X := 10? 

1, 3, 5 : X := SIN( Y ); 

6.. 10, 20, 30.. 40 : X := COS( Y ) 

END 

IF I =0 THEN I MATCHES THE LABEL ON STATEMENT 1 AND 
X WILL BE ASSIGNED THE VALUE 10. 

IF I = 7 THEN I MATCHES THE LABEL ON STATEMENT 3 AND 
X WILL BE ASSIGNED THE VALUE COS( Y ). 

* IF I = 50 THE CASE STATEMENT IS UNDEFINED. THIS PROBLEM 
CAN BE AVOIDED BY USING THE 'OTHERWISE'' CLAUSE. 



CASE I OF 

: X := 10; 

1, 3, 5 : X := SIN( Y ); 

6. .10, 20, 30.. 40 : X := COS(Y); 

OTHERWISE WRITELNCX IS OUT OF BOUNDS'") 
END 
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EXAMPLES! 

CASE DAY OF 

MON, TUE, WED, THU, FRI : BEGIN 

WRITELNdD); 

writeln(hrs, jobnum) 
end; 
sat ! wr i teln(' saturday'); 

sun : wr i teln ( " sunday '• ) 

END 



TYPE SIGN = (POSITIVE, ZERO, NEGATIVE); 
VAR ISIGN : SIGN; 
I : INTEGER; 

BEGIN 

READ(I); 

IF I > THEN ISIGN := POSITIVE 

ELSE IF I < THEN ISIGN := NEGATIVE 

ELSE IF I = THEN ISIGN := ZERO; 

■ 

CASE ISIGN OF 

POSITIVE : WRITE(I); 
NEGATIVE : WRITE (-1); 



ZERO : WRITE CI = 0" ) 



END 
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example: 

VAR CH ; CHAR; 

V/OWEL : BOOLEAN! 

CASE CH OF 



END 



•A-', 


■■•E--, 


•T' : BEGIN 

WRITE (■- IT' -S A VOWEL-); 
VOWEL := TRUE 
END; 


-B-, 


•'C, 


■TK, 


•'F', 


•'G', 


■-H', 


"J- 




! BEGIN 



WRITEC-'IT-'-'S A CONSONANT •-) ; 
VOWEL := FALSE 
END; 



OTHERWISE WRITE('CH IS NOT A.. J'); 
CH := •■ '■ 



NOTES: THE LABELS WITHIN A CASE STATEMENT MUST BE UNIQUE, BUT 
LABELS IN DIFFERENT CASE STATEMENTS OR EVEN NESTED CASE 
STATEMENTS ARE INDEPENDENT. 

IF THE VALUE OF THE EXPRESSION DOES NOT OCCUR AMONG THE 
LABELS, THE COMPUTATION IS UNDEFINED ! YOU WILL GET A 
RUN-TIME ERROR, YOU CAN AVOID THIS BY USING 'OTHERWISE' 

SEVERAL STATEMENTS MAY FOLLOW 'OTHERWISE". A BEGIN-END 
IS NOT NECESSARY. 
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WITH STATEMENT 

SYNTAX: WITH <VARIABLE LIST> DO <STATEMENT> 

EXAMPLES: TYPE DATE = RECORD 

DAY : INTEGER; 



MO : (JAN, FEB, MAR, APR, MAY, JUN, JUL, 
AUG, SEP, OCT, NOV, DEO? 

YR : INTEGER 
END; 



VAR TODAYSDATE : DATE; 

TODAYSDATE. DAY := 1; 
TODAYSDATE. MO := MAR; 
TODAYSDATE. YR := 1978; 
(* IS EQUIVALENT TO WRITING *> 
WITH TODAYSDATE DO 
BEGIN 

DAY := l; 
MO := MAR; 
YR := 1978 
END; 



ni 



EXAMPLES: P. NAME. LAST := -"HILL 
P. NAME. FIRST := 'JANE 
P.SS := 455809190; 
P. SEX := ■'F-'; 
P. BIRTH. DAY := 7? 
P. BIRTH. MO := SEP; 
P. BIRTH. YR := 1947; 
P. DEPOTS := l; 
P.MS := --S' 

<* IS EQUIVALENT TO WRITING *) 

WITH P, NAME, BIRTH DO 
BEGIN 

LAST := -HILL '; 

FIRST := 'JANE ' ; 

SS := 455809190; 

SEX := 'F-; 

MO := SEP; 

DAY := 20; 

YR := 1947; 

DEPOTS := 1; 

MS := 'S' 
END 



r. 



:") 
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THE WITH STATEMENT MAY BE USED WITH ARRAYS 



EXAMPLES: TYPE FAMILY = (MOM, POP, KIDl, KID2, KID3); 

DATE = RECORD 

MO : 1..12; 
DAY : 1..31; 
YR : INTEGER; 
END; 

VAR VACCINE s ARRAY C FAMILY 3 OF DATA; 



VACCINECKIDn.MO := 4; 
VACCINECKID13.DAY := 23; 
VACCINECKID13.YR := 1978? 

OR 
WITH VACCINECKIDl] DO 
BEGIN 

MO := 5" 
DAY := 23; 
YR := 197S 
END 



NOTE: WITH AC I 3 DO 
BEGIN 

I := I + 1 
END 



IS NOT ALLOWED 



GIVEN THE EXPRESSION: -WITH X DO Z' 

X MUST NOT CONTAIN ANY VARIABLES SUBJECT TO CHANGE BY Z. 
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SUMMARY 



•••REPEAT-UNTIL-- WILL EXECUTE ONE OR MORE STATEMENTS UNTIL A 
CERTAIN CONDI TON IS TRUE. 

•WHILE-DO'- TESTS THE CONDITION BEFORE EXECUTING THE STATEMENT. 
-REPEAT-UNTIL' MAKES THE TEST AFTER EXECUTING THE STATEMENT. 

THE 'CASE' STATEMENT IS SIMILAR TO THE ELSE- IF'' CHAIN. 
EXACTLY ONE STATEMENT WHOSE LABEL CORRESPONDS EXACTLY TO THE 
VALUE OF THE EXPRESSION WILL BE EXECUTED. 

LABELS IN A PARTICULAR 'CASE' STATEMENT MUST BE UNIQUE, BUT 
DIFFERENT 'CASE-- STATEMENTS ARE INDEPENDENT. 

THE ■'WITH' STATEMENT IS A WAY OF SHORTENING RECORD FIELD 
ASSIGNMENTS. 



(?/ 



WORKSHEET 



I.JSING A 
1 + I / 2 



■■•REPEAT-UNTIL ■■ 
+ 1/3 +. , .+1/1 



CALCULATE THE SMALLEST I SUCH THAT 
IS GREATER THAN A CONSTiANT N. 



GIVEN 2 VALUES VI AND V2 AND A CHARACTER CH =- --i--, -••, ••*•■, 
OR ■••/■•■ USE A -CASE' STATEMENT TO PERFORM THE CORRECT OPERATION 
ON THE TWO ARGUMENTS. I.E. IF CH = •■ + ■■ THEN Z := VI + V2. 



REWRITE THE Ff 


ULLOWING USING A -WITH- STATEMENT 


EMPLOYEE C 


ENUM .l.SSN := 456966 162 " 


EMPLOYEE C 


ENUM 3, HI RED. MO := 6; 


EMPLOYEE [ 


ENUM D. HIRED. DAY := 25; 


EMPLOYEE C 


ENUM 3. HI RED. YR := 1966; 


EMPLOYEE!: 


ENUM .1, GRADE := 12; 


EMPLOYEE!: 


ENUM ]. DEDUCTS := 2; 


EMPLOYEE C 


ENUM ]. INSCODE :== 2; 
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FORMATTED I/O MOD 13 



OBJECTIVES: 

- BE ABLE TO WRITE A STATEMENT TO OUTPUT AN INTEGER USING 
A SPECIFIED NUMBER OF COLUMNS. 

- BE ABLE TO WRITE A STATEMENT TO INPUT A NUMBER FROM 
A SPECIFIED NUMBER OF COLUMNS. 

- BE ABLE TO WRITE A STATEMENT TO OUTPUT A REAL NUMBER 

BY SPECIFYING THE FIELD WIDTH AND THE NUMBER OF DECIMAL 
PLACES TO BE PRINTED. 

- BE ABLE TO DESCRIBE THE FORMAT OF INPUT OR OUTPUT GIVEN 
A FORMATTED WRITE OR READ STATEMENT. 

- BE ABLE TO WRITE A FORMATTED READ STATEMENT FOR A VARIABLE 
OF TYPE CHAR 
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FORMATTED READ STATEMENT 



SYNTAX: READ ( <FILE> , X s W ) 



- W IS THE FIELD WIDTH - X WILL BE READ FROM THE 
NEXT 'W COLUMNS. 

- FIELDS NEED NOT SEPARATED BY A BLANK 



REAL X OR INTEGER X 

A STRING OF ^W' CHARACTERS WHICH FORM THE NUMBER ARE READ 
BLANKS ARE READ AS ZEROS 



EXAMPLE: FOR VAR X : INTEGER; 

DATA ! I i 2 i 9 ! 6 I 2 i 



READ (X : 4)? RESULTS IN ! I ! 2 ! 9 I 6 I 2 ! 



THE FIRST TIME THE READ COMMAND IS EXECUTED, X WILL BE ASSIGNED 
A VALUE OF 29. 



- CHARACTERS: 

IF A FIELD WIDTH IS SPECIFIED 

- THE FIRST NON BLANK CHARACTER IS READ 

- THE FILE POINTER IS MOVED OVER THE SPECIFIED NUMBER OF 

COLUNMS 

EXAMPLE: VAR CH : CHAR; 

DATA I A ! ! N ! E i W I 



READ (CH : 3); RESULTS IN ! A ! 1 N ! E i W 



AND CH = -N- 



Ul. 
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FORMATTED WRITE STATEMENT 

SYNTAX : WRITE < FILE, X : M > 

- M IS THE MINIMUM FIELD WIDTH 

- THE VALUE X WILL BE WRITTEN WITH M CHARACTERS 

IF X REQUIRES LESS THAN M CHARACTERS THEN LEADING BLANKS 

ARE INSERTED. 
IF X REQUIRES MORE THAN M CHARACTERS THEN ADDITIONAL SPACE 

IS USED. 

- REAL X WILL BE WRITTEN IN FLOATING POINT REPRESENTATION 

- NO AUTOMATIC SPACING BETWEEN NUMBERS 

EXAMPLES: VAR X, Y, Z s INTEGER; (X = 5, Y = 23, 2 = 5062) 
WRITE ( X : 4, Y : 4 ); RESULTS IN THE FOLLOWING OUTPUT 

5 23 

WRITE ( X : 3, Z : 4); RESULTS IN 
__55062 



*» NOTE: BLANKS MAY BE INSERTED BY USING A BLANK AS A TEXT 
STRING IN THE STATEMENT. 

WRITE (X : 3, ^ •' , Z : 4) 
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FIXED POINT notation: X MUST BE REAL, FIXED, OR DECIMAL 
SYNTAX : WRITE ( FILE, X : M s N ) 

- M IS THE TOTAL NUMBER OF DIGITS INCLUDING THE DECIMAL 

- N IS THE NUMBER OF DIGITS AFTER THE DECIMAL 

- NO MORE PRECISION IS PRINTED THAN THE VALUE ACTUALLY 
CONTAINS 

EXAMPLES : X = 63.25 VALUE PRINTED 

WRITE (FILE, X!5:2) 63.25 

WRITE (FILE, X:4:i) 63.2 

WRITE (FILE, X;6:3) 63,25 

*» NOTE: IF M IS NOT LARGE ENOUGH TO INCLUDE THE INTEGRAL PART 
OF THE NUMBER, THE NUMBER WILL BE PRINTED IN FLOATING 
FORM. 

X = 85.36951 

WRITE (X : 7 : 5) RESULTS IN 8.536951E1 



ri'p 
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1. USING A FORMATTED WRITE STATEMENT, PRINT 2 INTEGERS, 

11 AND 12, EACH HAVING 2 DIGITS. THE NUMBERS SHOULD BE 
SEPARATED BY A BLANK. WRITE TO THE DEFAULT FILE -OUTPUT 



GIVEN THE FOLLOWING CODE, SHOW THE OUTPUT: 
VAR X, Y : INTEGER; 



-I, 

Y != 10; 

WRITE (X); 
WRITE (Y); 

writeln; 

WRITE (X : 4, Y : 4); 



IN EACH CASE, SHOW THE OUTPUT IF WRITE (R 
EXECUTED: 

WHEN R := 67.3724 

WHEN R := 6.73724 

WHEN R := 6.73724E1 



4. GIVEN THE DECLARATION VAR CHARVARIABLE : CHAR; 
AND THE FOLLOWING INPUT FILE: 

+ + 

I A I I C !H ! R 1 I ! S ! T ! M I A ! S 1 

+ + 



SHOW THE POSITION OF THE FILE POINTER AND THE VALUE OF 
CHARVARIABLE AFTER THE STATEMENT READ ( CHARVARIABLE : 3 ) 
IS EXECUTED. 

GIVEN THE DECLARATION VAR K : INTEGER; 

WRITE A FORMATTED READ STATEMENT TO READ ONE INTEGER OF 

4 DIGITS FROM THE DEFAULT FILE -INPUT-. 



M 



6. USING THE ABOVE READ STATEMENT, WRITE A SHORT LOOP 
TO READ AND 'PROCESS' 4 INTEGERS. 

USE THE CHART BELOW TO SHOW THE FORMAT OF THE DATA. 
THE FOUR NUMBERS YOU WISH TO READ ARE 1131, 211, 
4337, 8940. ALL FOUR NUMBERS SHOULD APPEAR ON THE SAME 
LINE OF THE DATA FILE. 



1 J 1^ 
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NESTED PROCEDURES AND FUNCTIONS 



OBJECTIVES 



STUDENTS SHOULD BE ABLE TO DECLARE AND UTILIZE NESTED PROCEDURES 
TO PERFORM SPECIFIED OPERATIONS ON A SET OF PARAMETERS. 

STUDENTS SHOULD BE ABLE TO SPECIFY WHETHER A VARIABLE IS OLOBAL 
OR LOCAL TO A ROUTINE. 

STUDENTS SHOULD BE ABLE TO SPECIFY WHICH ROUTINES IN A PROGRAM 
MAY CALL A SPECIFIED PROCEDURE OR FUNCTION AND WHEN A -FORWARD- 
DECLARATION IS REQUIRED. 



AGENDA 



1. NESTED PROCEDURES 

- SYNTAX 

- PARAMETER PASSING 

2. SCOPE OF VARIABLES 

~ GLOBAL 

- LOCAL 

3. PROCEDURE ACCESSING RULES 

- PROCEDURES AT THE SAME LEVEL 

- FORWARD DECLARATIONS 

- NESTED PROCEDURES 

4. PASSING VARIABLY DIMENSIONED ARRAYS 

5. COMMON AND GLOBAL VARIABLES 
A. TOP DOWN DESIGN 
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PASCAL PROGRAM SYNTAX 



PROGRAM < PROG. NAME >5 

< LABEL. DECLARATIONS >; 

< CONSTANT DECLARATIONS :.- ; 

< TYPE DECLARATIONS >? 

< VARIABLE DECLARATIONS >? 
•C COMMON DECLARATIONS >? 

< ACCESS DECLARATIONS >? 

< PROCEDURE AND FUNCTION DECLARATIONS >; 

BEGIN 

C BODY OF PROGRAM ( BLOCK ) 1 
END. 



PASCAL PROCEDURE DECLARATION SYNTAX 

PROCEDURE < PROCEDURE NAME > C ( < PARAMETER LIST > ) ]; 

C DECLARATIONS ] 

BEG I N 

C BODY OF PROCEDURE ( BLOCK ) ] 

END; 

■**N0TE: each PROCEDURE HAS ITS OWN DECLARATION SECTION. THIS 

DECLARATION SECTION MAY CONTAIN PROCEDURE AND FUNCTION 
DECLARATIONS. THIS MEANS THAT A PROCEDURE MAY BE NESTED 
WITHIN ANOTHER PROCEDURE. PROCEDURES MAY BE NESTED 
16 LEVELS DEEP, THE MAIN PROGRAM IS CONSIDERED LEVEL 1, 
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EXAMPLE 

PROGRAM SCOPE l; 

VAR X, Y : INTEGER; 
PROCEDURE ONE ( Q : INTEGER )? 
VAR A : INTEGER; 
PROCEDURE TWO ( R : INTEGER ); 
VAR B : INTEGER; 
BEGIN (* TWO ») 

(* X, Y, A, B ARE ACCESSIBLE •«• ) 

end; (* TWO *) 

BEGIN (# ONE »> 

ft 

(* X, Y, A ARE ACCESSIBLE *) 
END; (# ONE *) 
PROCEDURE THREE ( S s INTEGER ); 
VAR C : INTEGER" 
BEGIN («• THREE ^) 

m 

(« X, Y, C ARE ACCESSIBLE *) 
END; (* THREE #) 
BEGIN (■«• SCOPE 1 *) 

(* X, Y ARE ACCESSIBLE •»■ ) 

a 

END. (* SCOPE 1 *) 



NOTE: SPACE FOR LOCAL VARIABLES IS ALLOCATED WHEN THE PROCEDURE 
IS CALLED, AND THE SPACE IS RELEASED WHEN THE PROCEDURE 
IS EXITED. 
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DUPLICATING VARIABLE NAMES; 



*-ii-RULE: IF A VARIABLE IS DECLARED IN A PROCEDURE WHICH HAS 
THE SAME NAME AS A VARIABLE WHICH IS GLOBAL TO THAT 
PROCEDURE, THE NEWLY DECLARED VARIABLE WILL BE -ACTIVE 
UNTIL THE PROCEDURE IS EXITED. 



EXAMPLE: 

PROGRAM TEST; 

VAR I : INTEGER; 
PROCEDURE A < . . ) ; 
VAR I : real; 
PROCEDURE B ( . . ) ; 
VAR I : BOOLEAN; 

# HERE I IS BOOLEAN 
s- HERE I IS REAL 
•» HERE I IS INTEGER 
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PROCEDURE ACCESSIBILITY RULES 



«•* A PROGRAM OR PROCEDURE MAY CALL ITSELF 

** A PROCEDURE MAY CALL ANOTHER PROCEDURE WHICH* IS DEFINED WITHIN IT 

** A PROCEDURE MAY CALL ANOTHER PROCEDURE AT THE SAME LEVEL IF IT 
HAS ALREADY BEEN DEFINED. 

FORWARD DECLARAT I ONS 



A PROCEDURE MUST BE -DEFINED- ( MUST HAVE BEEN DECLARED IN 
A PROCEDURE DECLARATION ) BEFORE IT MAY BE CALLED. 



EXAMPLE: 



PROGRAM SCOPE; 

PROCEDURE A ( N : INTEGER ) 

B ( ... ) *2* 

PROCEDURE B ( R : REAL )? 

A ( ... ) *1* 



*1.^ THIS CALL TO •-A-- IS LEGAL SINCE •-A-- WAS DEFINED ABOVE 
( BEFORE ) ■B-- 



■»2* THIS CALL TO -B- IS NOT LEGAL SINCE -B- HAS NOT BEEN 

DEFINED TO THE COMPILER WHEN THE CALL TO •■B-' IS COMPILED 
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iiOLUTION: 



PROGRAM SCOPE; 

PROCEDURE B ( R : REAL )? FORWARD; (* J. #) 
PROCEDURE A ( N : INTEGER ); 

B (...) ; ( # 2 * ) 

PROCEDURE B; ( * NOTE THAT NO FORMAL FARMS ARE SPECIFIED *) 

A ( ... ); 



NOTES ON FORWARD DECLARATION 



(* 1 *) - THE FORMAL ( DUMMY ) PARAMETER LIST SHOULD 

BE SPECIFIED ON THE FORWARD PROCEDURE DECLARATION 



(* 2 *) - WHEN THE CALL TO •■B' IS MADE, -B- HAS BEEN DEFINED 
IN THE FORWARD PROCEDURE DECLARATION 
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NESTED PROCEDURES 



*•» A PROCEDURE MAY CALL ANY PROCEDURE ITS PARENT MAY CALL. 
*# A PROCEDURE MAY NOT CALL ANY PROCEDURE AT A LOWER LEVEL 

PROGRAM T 

PROCEDURE A 

PROCEDURE B 
PROCEDURE C 

PROGRAM T MAY CALL: ITSELF, PROCEDURE A, PROCEDURE C 

PROCEDURE A MAY CALL: ITSELF, PROGRAM T, PROCEDURE B, 

PROCEDURE C IF C IS FORWARD REFERENCED. 

PROCEDURE B MAY CALL: ITSELF, PROCEDURE A, PROGRAM T, AND PROCEDURE C 

IF C IS FORWARD REFERENCED 

PROCEDURE C MAY CALL: ITSELF, PROGRAM T, PROCEDURE A 



I-"-/- 
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EXERCISE 



PROGRAM T 

PROCEDURE A 

PROCEDURE D 

A B C D E F G T 



PROCEDURE E 

A B C D E F G T 



A C D E F G T 



PROCEDURE B 

PROCEDURE F 

PROCEDURE G 

A B C D E F G T 



A B C D E F G T 



B C: D E F G T 



PROCEDURE C 

A B C D E F G T 



A B r: D E F G T 
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USE THE FOLLOWING INDICATORS TO SPECIFY WHETHER CALLS TO THE 
INDICATED PROCEDURES ARE LEGAL. 

L - LEGAL, NO FORWARD DECLARATION REQUIRED 

F -- LEGAL, IF FORWARD DECLARATION IS REQUIRED 

N - NOT LEGAL. 



PROGRAM T 

PROCEDURE A 
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A B C D E F G T 

PROCEDURE B 

PROCEDURE C 

A B C D E F G T 

PROCEDURE D 

A B C D E F G T 

A B C D E F G T 



PROCEDURE E 

PROCEDURE F 

PROCEDURE G 

A B C D E F G T 



A B C: D E F G T 



A B C D E F T 



A B C: D E F G T 






VARIABLE DIMENSION ARRAY PARAMETERS 



PURPOSE: TO ALLOW A PROCEDURE TO OPERATE ON DIFFERENT SIZE ARRAY? 



SYNTAX I 



PROCEDURE TEST < X : ARRAY C 1.,? ] OF INTEGER ) 



NOTES 



- THE LOWER BOUND INDEX MUST MATCH THAT OF THE 
ACTUAL PARAMETER 

- THIS IS THE ONLY TIME WHEN A ■COMPLETE-' TYPE 
DECLARATION IS ALLOWED FOR A FORMAL PARAMETER 

- THE BUILT-IN PASCAL FUNCTION -UB- RETURNS THE 
MAXIMUM INDEX FOR THE ACTUAL ARRAY 



EXAMPLE! 



PROGRAM TEST? 

VAR A : ARRAY C 1..10 1 OF INTEGER? 
B : ARRAY C 1 . . 20 1 OF INTEGER? 
MAX : INTEGER? 

PROCEDURE FINDMAX ( X : ARRAY C 1..? 1 OF INTEGER' 

VAR BIG : INTEGER )? 

BEGIN (* FINDMAX *) 
BIG := XC 1 3? 
FOR I := 2 TO UB( X ) DO 
IF XC I ] > BIG THEN 
BIG := Xr I ] 
END? (-* FINDMAX ->) 

BEGIN (* TEST #) 

FINDMAX ( A, MAX )? 

FINDMAX ( B, MAX )? 
END. O TEST #) 
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FINDING THE UPPER BOUND OF MULT I -DIMENSIONED ARRAYS 



UB < X , 1 ) RETURNS THE MAXIMUM INDEX OF THE FIRST DIMENSION 
OF ARRAY X 



UB ( X , 2 ) RETURNS THE MAXIMUM INDEX OF THE SECOND DIMENSION 
OF ARRAY X 



EXAMPLE: 

VAR ARAY : ARRAY C l.,10, 1 . , 20 ] OF REAL 5 

PROCEDURE ONE ( X : ARRAY C 1 . . ? , 1 . . ? 3 OF REAL ) 
VAR M, N : INTEGER; 

■ 

M := UB ( X , 1 )? (* M = 10 *) 
N := UB < X , 2 ); (# N = 20 ») 
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ALTERNATIVES TO PASSING PARAMETERS TO PROCEDURES 



PASSING A VALUE TO A PROCEDURE AS A PARAMETER AIDS IN DEBUGGING 

- TYPE CHECKING 

- THE ABILITY TO PASS VAR-'ED AND UNVAR-'ED PARAMETERS 

- ENHANCES THE READABILITY OF THE PROGRAM 

THERE ARE SITUATIONS IN WHICH YOU MAY NOT WISH TO PASS A VALUE 
AS A PARAMETER 

- BECAUSE OF SPACE CONSIDERATIONS 

- YOU MAY WANT TO SHARE VARIABLES WITH OTHER PROGRAMS 



COMMON VARIABLES 



SYNTAX: COMMON <VARIABLE> : <TYPE>; 

- FOLLOWS VAR DECLARATION SECTION 

- VARIABLE NAMES NOT MORE THAN 6 CHARACTERS 

- COMMON VARIABLES ARE NOT ALLOCATED ON THE STACK 

- EXIST DURING ENTIRE EXECUTION OF THE PROGRAM 

~ USED TO DECLARE VARIABLES WHICH MAY BE SHARED WITH OTHER 
ROUTINES OR EXTERNAL ROUTINES. 

-. TO ACCESS A COMMON VARIABLE A ROUTINE MUST CONTAIN AN 
ACCESS DECLARATION 

ACCESS DECL ARAT I ONS 



SYNTAX : ACCESS <VARIABLE>-, <VARIABLE>, ... ? 

- AN ACCESS DECLARATION MUST APPEAR IN EACH ROUTINE THAT ACCESSED 
A COMMON VARIABLE. 

EXAMPLE: PROCEDURE P ? 

COMMON X : INTEGER? 
PROCEDURE Q; 
VAR Y : INTEGER ? 
PROCEDURE R ? 
ACCESS X ; 
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ACCESSING GLOBAL VARIABLES 



A ROUTINE MAY ACCESS ANY VARIABLE THAT IS ■- GLOBAL-' TO IT 

THE OPTION (** GLOBALS #) REQUIRES AN ACCESS DECLARATION FOR 
EACH GLOBAL VARIABLE USED IN A ROUTINE, 



(** GLOBALS ») 

ONLY GLOBAL VARIABLES NAMES IN AN -ACCESS- DECLARATION MAY BE 
USED BY A ROUTINE 

ROUTINE LEVEL OPTION 

DEFAULT : FALSE" 



^i^'^ 
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TOP DOWN DESIGN 



OBJECTIVE 



THE GOAL IS TO EVENTUALLY OBTAIN A MODULAR DECOMPOSITION OF THE 
PROBLEM. FOR THIS TO BE EFFECTIVE, EACH MODULE SHOULD BE: 

SMALL IN SIZE. USUALLY A MODULE SIZE OF 
20 TO 200 LINES IS PREFERRED. THIS WILL 
DEPEND ON THE PROGRAMMING GROUP, THE 
LANGUAGE BEING USED AND THE PROBLEM. 
MODULES LARGER THAN THIS ARE DIFFICULT 
TO MANAGE. 

COHESIVE. THE RELATION OF THE DIFFERENT 
PARTS OF THE SAME MODULE TO EACH OTHER 
SHOULD BE AS STRONG AS POSSIBLE. THE 
MODULE SHOULD BE RESPONSIBLE FOR A SINGLE 
FUNCTION, NOT A COLLECTION OF UNRELATED 
TASKS. 

ISOLATED. THE INTERACTIONS BETWEEN DIF- 
FERENT MODULES SHOULD BE AS WEAK AS POS- 
SIBLE. IF THE MODULES ARE TRUELY FUNCTIONAL 
AND COHESIVE, THEY SHOULD BE ABLE TO INTERACT 
WITH OTHER MODULES OF THE PROGRAM IN VERY 
STRAIGHT FORWARD WAYS. IF POSSIBLE, INFORMA- 
TION SHOULD MOVE BETWEEN MODULES BY THE USE 
OF ARGUMENTS PASSED TO PROCEDURES AND FUNC- 
TIONS. THE USE OF GLOBAL VARIABLES THAT ARE 
MODIFIED BY DIFFERENT MODULES OF A PROGRAM 
CAN LEAD TO INTERACTIONS BETWEEN MODULES 
THAT ARE DIFFICULT TO UNDERSTAND. 



METHOD 



BEGIN WITH AN EXACT STATEMENT OF THE PROBLEM. 

INITIALLY, EXPRESS THE SOLUTION IN ENGLISH OR WHATEVER 
NOTATIN IS CONVENIENT. 

REFINE THE SOLUTION INTO SUCCESSIVELY MORE DETAILED 

LEVELS. POSTPONE DETAILS UNTIL THEY ARE NEEDED AT LOWER 
LEVELS. 

GIVE AS MUCH THOUGHT TO DATA STRUCTURES AS TO THE PROGRAM 
STRLICTURE. 
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TOP DOWN IMPLEMENTATION AND TESTING- 
TEST MAJOR INTERFACES FIRST, USING STUBS FOR LOW LEVEL MODULES 



ADVANTAGES 



MAJOR INTERFACES ARE TESTED FIRST, SO MAJOR BUGS AND DESIGN 
WEAKNESSES ARE DISCOVERED FIRST. 

PRELIMINARY VERSION OF ENTIRE SYSTEM IS AVAILABLE EARLY. 

COMPUTER TIME SPENT ON TESTING IS DISTRIBUTED THROUGHOUT THE 
PROJECT. 

THE DEBUGGING EFFORT IS USUALLY CONCENTRATED ON THE LAST 

PROCEDURE ADDED TO THE PROGRAM. SINCE THE PROGRAM WORKED WHEN 
THE PROCEDURE WAS A STUB, MANY BUGS WILL BE FOUND QUICKLY 
SINCE MOST OF THEM WILL BE IN THE PROCEDURE JUST ADDED TO THE 
PROGRAM. 
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THE STUB 

THE PROCEDURE STUB IS AN IMPORTANT PART OF TOP DOWN IMPLEMENTATION. 
IN PASCAL THE STUB USUALLY LOOKS LIKE ONE OF THE EXAMPLES BELOW: 

FUNCTION SG!RT< X : REAL ): REAL; 

(* FUNCTION TO TAKE THE SQUARE ROOT OF X *) 

BEGIN (* SORT #) 

(»»«»* NOT YET IMPLEMENTED ***»*) 

SQRT := X/2; (* RETURN A VALUE SO THE PROGRAM CAN BE RUN *) 
END(# SQRT »); 

- OR - 

PROCEDURE LOOKUP ( KEY : ALFA? VAR I : INTEGER ); 

(» TABLE LOOKUP ROUTINE, I IS LOCATION OF KEY IN THE TABLE ») 

BEGIN (# LOOKUP #) 

(* PROCEDURE STUB *) 

I 5= l; (* RETURN SOME VALUE FOR THE PROGRAM TO USE ») 
END(» LOOKUP ft) 



TO AID IN THE DEBUGGING AND OPTIMIZATION OF A LARGE PROGRAM, SMARTER 
STUBS MAY BE USED. FOR EXAMPLE: 



PROCEDURE INVERT ( VAR A, B : ARRAY C 1..?, 1..? 3 OF REAL )? 

(* PROCEDURE TO INVERT MATRIX A AND PUT RESULT IN B *) 

BEGIN (* INVERT ») 

<* »»»> NOT YET IMPLEMENTED <««« ») 
WRITELN(- INVERT REACHED, INPUT MATRIX IS: ■• ) ; 
FOR l:=l TO UB( A, 1 ) DO 
BEGIN 

FOR j:=l TO UB( A, 2 ) DO WRITE ( AC I, J 3:10:5 )? 

writeln; 

END (* FOR »); 

B := A; (* RETURN AN ANSWER ( ALTHOUGH NOT THE RIGHT ONE ) *) 
(» FOR THE REST OF THE PROGRAM TO WORK WITH ^■) 

END(# INVERT *)? 
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PASCAL MEMORY ALLOCATION 



OBJECTIVE 



STUDENTS SHOULD BE ABLE TO FIND THE STORAGE REQUIREMENTS FOR 
A PARTICULAR DATA TYPE IN THE 990 PASCAL DOCUMENTATION. 



AGENDA 



1. STACK AND HEAP ALLOCATION 

2. DATA TYPES AND MEMORY USAGE 



K)5' 



PASCAL MEMORY ALLOCATON 

MEMORY FOR VARIABLES IS STORED IN TWO MEMORY AREAS i 

STACK 
HEAP 



STACK MEMORY 



- ALL VARIABLES WHICH ARE DECLARED IN A PROGRAM (STATIC 
VARIABLES) ARE ALLOCATED MEMORY FROM STACK MEMORY. 

- STORAGE LOCATIONS FOR A ROUTINE ARE NOT ALLOCATED UNTIL 
THE ROUTINE IS CALLED. 

- WHEN A ROUTINE IS EXITED, STORAGE FOR THAT ROUTINE IS 
RELEASED. 



HEAP MEMORY 



ALL VARIABLES ALLOCATED USING THE 'NEW' PASCAL FUNCTION CALL 
(DYNAMIC VARIABLES) HAVE THEIR STORAGE LOCATIONS IN 'HEAP' 
MEMORY. 

HEAP MEMORY IS A MEMORY 'POOL'' WHICH MAY BE USED BY YOUR 
PROGRAM TO ALLOCATE TEMPORARY MEMORY. 

IF THE SIZE AND NUMBER OF YOUR VARIABLES ARE KNOWN WHEN 
WRITING YOUR PROGRAM, YOU SHOULD DECLARE THEM IN THE PROGRAM. 



O-OL- 



PROGRAM TESTM; 

C TESTM VARIABLE DECLARATIONS ] 
PROCEDURE PRl 

C PRl VARIABLE DECLARATIONS ] 

BEGIN <* PRl *) 

END (* PRl *) 
PROCEDURE PR2 

C PR2 VARIABLE DECLARATIONS 1 

BEGIN (* PR2 *) 
«4 CALL TO PRl 

*5 

END; (* PR2 *) 

BEGIN (♦ TESTM *) 

#1 

*2 CALL TO PRl 

*3 CALL TO PR2 

#6 

END. (♦ TESTM *) 



STACK MEMORY 
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PROGRAM WRONG; 

PROCEDURE COUNT ( FLAG : BOOLEAN ) 
VAR N : INTEGER; 
BEGIN (» COUNT *) 

IF FLAG THEN N := 0; 

N : ] N + l; 

WRITELN ( 'N IS ' , N > 
END; (* COUNT #) 



PROCEDURE CNT ( FLAG 
VAR M : INTEGER? 
BEGIN (# CNT #) 
IF FLAG THEN M : 
M := M + 1; 
WRITELN ( 'M IS 
END; 



BOOLEAN ); 



= 0; 



M ) 



BEGIN (♦ MAIN *) 

WRITELN ( 'WRONG EXECUTION BEGINS"); 

WRITELN; 

COUNT ( TRUE ); 

CNT ( TRUE ); 

COUNT ( FALSE ); 



CNT 




FALSE ); 


COUNT 




FALSE ); 


CNT 




FALSE ); 


COUNT 




FALSE )? 


CNT 




FALSE ); 


COUNT 




TRUE ); 


CNT 




TRUE ); 


END. 







WRONG EXECUTION BEGINS 
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DATA TYPE STORAGE REQUIREMENTS 



STORAGE STORAGE 

TYPE UNPACKED PACKED 



INTEGER 2 BYTES 2 BYTES 

LONG I NT 4 BYTES 4 BYTES 

REAL 4 BYTES 4 BYTES 
REAL (N) 

N <= 7 4 BYTES 4 BYTES 

N >= 8 8 BYTES 8 BYTES 

BOOLEAN 2 BYTES 1 BIT 

POINTER 2 BYTES 2 BYTES 

*SEE PARAGRAPH 6.7.3 OF PASCAL USER MANUAL FOR OTHER TYPES. 



ARRAY STORAGE REQUIREMENTS 



UNPACKED: 

N = NUMBER OF ELEMENTS 
S = ELEMENT SIZE UNPACKED 
STORAGE = N*S BYTES 



PACKED: 

»NOTE: A SINGLE ELEMENT OF AN ARRAY WILL NEVER BE SPLIT ACROSS 
WORD BOUNDARIES. 

N = NUMBER OF ELEMENTS 

S = SIZE OF EACH ELEMENT IN BITS 



S < 16 



MAXIMUM # OF ELEMENTS ARE PACKED IN EACH WORD 

E = # OF ELEMENTS / WORD 
Q = - IF N MOD E = 
1 - IF N MOD E > 

STORAGE = (N DIV E) + Q WORDS 

EXAMPLE: 

VAR TEST : PACKED ARRAY C 1 , . 1 1 ] OF CHAR 

STORAGE = n DIV 2+1=6 WORDS 






S > 16 



E = # OF WORDS/ELEMENT 
STORAGE = N*E WORDS 

RECORDS 

UNPACKED: 

STORAGE = SUM OF STORAGES REQUIRED BY EACH COMPONENT. 

EXAMPLE: 

TYPE REC : RECORD 

PI ; ARRAY C 1..5 ] OF INTEGER? 
P2 : REAL; 
P3 ; LONG I NT 5 

P4 : ARRAY Z 1..4 1 OF CHAR 
END; 

A VARIABLE OF TYPE ^REC REQUIRES 13 WORDS 



I Picn I 


I P1C2: I 


I P1C3] I 


I PIC43 I 


I P1C5: I 


I P2 I 


I P2 I 


I P3 I 


I P3 I 
T — ^ 


I 1 


P4C1] I 

T 


I 1 


____ _ ^ 

P4C2] I 


I 1 


P4C3] I 

— T 


I 1 


i 

P4C43 I 

1 



-J^ 
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PACKED RECORDS 



EXAMPLE : TYPE R = 



PACKED RECORD 

A : PACKED ARRAY CI, 
J : 0..7; 
K ! 0..#FFF? 
L : INTEGER 
END; 



10] OF 1..31; 



RECORD STORAGE RULES : 

1. IF RECORD IS NOT PACKED THEN A FIELD OCCUPIES THE NUMBER 
OF WORDS REQUIRED BY ITS TYPE. 

2. IF THE PRECEEDING FIELD IS LESS THAN 1 WORD, THEN THE NEXT 
FIELD IS STORED IN THE REMAINDER OF THE WORD IF IT WILL FIT. 

3. IF IT DOESN'T FIT THEN IT IS LEFT JUSTIFIED AT THE BEGINNING 
OF THE NEXT WORD AND THE PREVIOUS FIELD IS RIGHT JUSTIFIED IN 
THE PREVIOUS WORD. 

4. IF THE PRECEEDING FIELD OCCUPIES MORE THAN 1 WORD THEN THE NEXT 
FIELD IS STORED LEFT JUSTIFIED IN THE NEXT WORD. 



TYPE REC = PACKED RECORD 

A s PACKED ARRAY CI.. 103 OF 1..31? 

J : 0..7; 

K : 0..#FFF,' 

L s INTEGER 
ENDS 
= PACKED RECORD 

J : 0..7; 

A ! PACKED ARRAY CI.. 10 3 OF 0..31 
END; 



STORAGE FOR R 



R 



I 



! J 



! ACl] ! AC2] ! AC33 

! AC43 ! AC53 ! AC63 

! AC73 ! AC83 ! AC?>3 
! AC 103! 



STORAGE 


FOR 


REC 
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■E ABi.E TO RE" AD IN AND WRITE OUT ARRAV& Ai r 

J l „ PASCAL,, DATA, DAT A 2 

THE DATA FOR BOTH PARTS OF ASSIGNHENT 2 I? 
EMPLOYEES AND TMEIR SOCIAL SEC0RITIE3,. '!- 
A SOCIAL SECURITY NUMBER ( 9 DIGITS ) FOiJ., 
FOLLLiWED DY A NAME ( UP TO 20 DIGITS ). 



READ EACH NAME AND SOCIAL SECURITY NUMDER UTro >- 
RECORDS, ECHO PRINT EACH NAME AND NUflBFR i^S IT 
AFTER EACH NAME AND NUMBER HAS BEEN STORED IN T! 
PRINT OUT THE RECORD TO BE SURE IT HAS BEEN STViR 



ITi i':0|" 



;REi.: 



STRATEGY: 

- CREATE A RECORD TYPE WHICH HAS THE FOLLOW TNG 
SOCIAL SECURITY NUMBER (9 DIGITS): THIS NUG 

L.ONGINT 
NAME < LIP TO 20 CHARACTERS ): THIS SHOULD iJ 

OF TYPE CHAR 



-■ lEi. ns 
T OF r 



CREATE A TYPE ■A-- WHICH IS AN ARRAY OF RFCGR 
DECLARE A GLOBAL VARIABLE OF TYPE A,- 
LET THE LENGTH OF THE ARRAY BE A GGNSTAN i" 
WRITE THE FOLLOWING PROCEDURES: 



READ_.ECHO 



READS THE SOCIAL SECURITY NUMFER 
RECORD IN THE ARRAY. 
ECHO PRINTS TIIE NAME AND NUMBFR P 
■- TO ECHO THE NAME, WRITE EAi'ii i,; 
IS READ IN, 
PARAMETERS 

ARRAY NAME 
ARRAY LENGTH 



1,1 i 



-i E h AIM R U T I N E W I !._. L R E S FT T M E D ATA F G -. 
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STRUCTURE FOR PROGRAM 2A: 

MAIN 



I 
READ-ECHO 



2B. ADD THE FOLLOWING TO YOUR PROGRAM 2A 

PRINT_ARRAY : - A PROCEDURE WHICH WRITES OUT THE ELEMNETS OF 

THE ARRAY ONE NAME AND NUMBER PER LINE. 

- WRITE OUT A MESSAGE TO LABEL THE LIST SUCH AS 

' EMPLOYEE LIST " 

- PARAMETERS: 

ARRAY NAME 

NUMBER OF ELEMENTS 

- MODIFY YOUR MAIN PROGRAM TO CALL PRINT- ARRAY 



STRUCTURE FOR PROGRAM 2B 

MAIN 



I I 

READ-ECHO PRINT-ARRAY 
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DATA STRUCTURES - POINTERS 



OBJECTIVES: 

- BE ABLE TO DECLARE POINTERS AND RECORDS CONTAINING POINTERS, 

- BE ABLE TO USE -NEW-- TO ALLOCATE A RECORD POINTED TO BY A 
GIVEN POINTER. 

- BE ABLE TO WRITE STATEMENTS MANIPULATING POINTERS: 

ASSIGN VALUES 

ASSIGN VALUES TO A FIELD IN A RECORD POINTED TO BY A POINTER 

- BE ABLE TO DRAW A DIAGRAM INDICATING HOW A POINTER IS MOVED 
WHEN A GIVEN STATEMENT IS EXECUTED. 

AGENDA 

1. USING POINTERS 
~ NIL 

- NEW 

- LINKED LISTS 

- DOUBLY LINKED LISTS 

WORKSHEET 
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POINTERS 



riEFINITION: A POINTER IS A VARIABLE THAT HOLDS THE ADDRESS OF 
(OR "POINTS TO") A BLOCK OF MEMORY. 



>YNTAX: VAR <NAME> : @<TYPE>; 

OR 

TYPE <TYPE NAME> : @<TYPE>; 

A POINTER IS DECLARED AS POINTING TO A SPECIFIC TYPE OF 
DATA. IT MAY ONLY POINT TO THAT TYPE. 



USING POINTERS! 

TYPE DATA = RECORD 

INT : INTEGER; 
PNTR ! ©DATA; 
END; 
VAR P, Q ! odata; 

P REFERENCES THE VALUE OF P OR THE ADDRESS OF 

A BLOCK OF •DATA-". 

P := Q MAKES P POINT TO THE SAME PLACE AS Q 

P@ REFERENCES THE BLOCK OF DATA POINTED TO BY P 

P@ := Q@ COPIES THE DATA POINTED TO BY Q INTO THE BLOCK 
POINTED TO BY P. 

IF P POINTS TO A RECORD, P@.<FIELD> REFERENCES A FIELD 
IN THAT RECORD. 



P := Q P@ := Q@ 

P Q P Q 

II I I 

II t I 

■ I I I 

■ I I I 

+ >+ — V-+ + — V-+ +-V — + 

III I t I til 

III III III 

+ 1. + ^. 4. 4. 

P&.IHT :■-= 4; QS.INT := 4; 
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P 

1 










+ — V-+ 


+-; 


> +- 


+ 


INT 


I 8 I 


1 

1 


1 
t 


9 1 




+ + 

t 


-+ 


+- 
1 


+ 


NEXT 


1 

+ + 


1 

+- 


+ 



example: type pntr = sblock; 
type block = record 

int : integer; 
next : sblock 
end; 

var p : pntr; (# p is a pointer to type block * ) 

p := ps.next has this effect: 



+ (- H >+ — y — I- 

I O I I 1 .■' 1 

I + + I + + 

L. 1 1. I I 

+ + + + 

P@. INT := 10 HAS THIS EFFECT: 
+ + 

p >. IQ j 

+ + 

+ + 

*#NOTE: A FORWARD DECLARATION IS ALLOWED HERE. 



NIL 



DEFINITION: NIL IS A SPECIAL VALUE THAT ALLOWS A POINTER TO POINT 
TO NOTHING. 

A POINTER MAY BE ASSIGNED TO OR COMPARED WITH NIL. 

Pe.NEXT := NIL; IF PS.NEXT = NIL THEN 



IF A POINTER P IS NIL THEN REFERENCING P@ WILL GIVE 
AN ERROR. 

NIL IS USED TO MARK THE END OF A CHAIN. 



p ->+ + + y+ + + y+ + + — ;;...4. + 

+ + j + J. J + f. I + 1- 

1 ' !-+ I 1 — + ! I — + INIL I 

+ + H H H H + h 

RUNTIME OPTION CKPTR 



ENABLES OR DISABLES CHECKING FOR NIL VALUES OF VARIABLES OF 
TYPE POINTER AT EXECUTION TIME. 

DEFAULT IS FALSE 
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NEW < P ) 



DEFINITION: ALLOCATES A BLOCK OF MEMORY OF THE TYPE P POINTS TO. 
P IS SET TO POINT TO THE NEW BLOCK. 



EXAMPLE: TYPE REC = 



VAR WORD 



RECORD 
ITEM 
NEXT 

END; 

©REC; 



ARRAY CI..IO: OF CHAR; 
@REC 



(» WORD IS A POINTER TO TYPE REC «) 



NEW( WORD ); (* CREATES A RECORD AND SETS WORD TO 

POINT TO IT *) 
WORD®. NEXT := NIL; (» SET THE POINTER FIELD TO NIL «) 

*»NOTE: WHEN A NEW BLOCK IS ALLOCATED, SET ALL POINTERS TO NIL. 
THIS IS NOT DONE FOR YOU. 



DISPOSE ( P ) 



DEFINITION: MAKES THE SPACE POINTED TO BY P AVAILABLE FOR REUSE. 

- P MUST POINT TO A DYNAMIC VARIABLE 
I.E. ONE ALLOCATED BY NEW 

- IF P = NIL AN ERROR OCCURS 

- AFTER THE STORAGE IS DEALLOCATED, P IS SET TO NIL. 
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LINKED LISTS 

DEFINITION: A LINKED LIST IS A CHAIN OF RECORDS JOINED BY POINTER? 
START 

I 

I 

: III ! I ; ill 

+ + j 4. 4. j ^ + , .^ ^ 

1 I + I ! + ! I + I NIL I 

+ + + + + + + + 



EXAMPLE : SEARCH A LINKED LIST FOR THE VALUE NUM. 

VAR PNTR : LINK? 

PNTR := FIRST (# SET PNTR TO THE FIRST OF THE LIST *) 

(* FIRST COULD BE PASSED AS A #) 
(* PARAMETER ») 

WHILE PNTRS.SS <> NUM DO 

PNTR := PNTRS.NEXT; 



EXAMPLE: SEARCH WITH THE POSSIBILITY OF AN UNSUCCESSFUL SEARCH. 
PNTR := FIRST- 

WHILE (PNTR <> NIL) AND (PNTR@.SS <> NUM) DO 
PNTR := PNTR(2.NEXT; 

THE POINTER OF THE LAST RECORD WILL POINT TO NIL, 
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PROCEDURE READ-ECHO ( VAR WORD 



PTR >; 



VAR I : INTEGER; 

CH : CHAR 5 
BEGIN 

I := 0; 
REPEAT 

I := I + 1; 
READ ( CH ) ; 
WRITE ( CH ); 
WORD®. A C I 3 := CH 
UNTIL CH = •• ••■ OR EOLN; 
IF EOLN THEN 
BEGIN 

READLN; 
WRITELN 
END 
END; (* READ_ECNO ») 



READ N SOCIAL SECURITY NUMBERS INTO A LINKED LIST 

TYPE REC = RECORD 

SS : LONG I NT; 
NEXT : @REC 
END; 
LINK = @REC; 

VAR FIRST : LINK; 

PROCEDURE READ_SOCIAL_SECURITY_NUMBERS< VAR FIRST : LINK ); 



VAR S, N, I 
P 



INTEGER; 
LINK ; 



BEGIN 

RESET ( INPUT ); 
READ ( N ); 
FIRST := NIL; 
FOR I := 1 TO N DO 
BEGIN 

READ ( S );■ 
NEW ( P ); 
P@.SS := S; 



P@.NEXT := FIRST; 
FIRST := P 



(* READ THE SOCIAL SECURITY NUMBER *) 

(* P POINTS TO A NEW RECORD #) 

(# PUT SOCIAL SECURITY NUMBER INTO ^) 

(# NEW RECORD ^n 



END; 
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STACKS 



riEFINITION: A STACK IS A LIST IN WHICH ALL INSERTIONS AND 
DELETIONS ARE MADE FROM THE TOP. 



ADD THE ELEMENTS A, B, C TO A STACK: 

C TOP 

B 

A 

THE RESTRICTIONS ON A STACK IMPLY THAT IF A, B, 
AND C ARE ADDED TO A STACK IN THAT ORDER THEN THE 
FIRST ELEMENT TO BE REMOVED WILL BE C. 

EXAMPLE: DECLARATIONS ARE: 

TYPE BLOCK = RECORD 

DATA : T; 

LINK : ©BLOCK 
END? 
VAR START: SBLOCK; 

PROCEDURE I N I T I AL I Z E_STACK 5 
BEGIN 

START := NIL? 
END; (•«• INITIALIZE-STACK ») 



PROCEDURE PUSH(X : T); 

VAR P : ©BLOCK; 

BEGIN 
NEW ( P ) ; 

Pe.DATA := X; (* PUT X INTO RECORD *) 
Pe.LINK := START; (* INSERT RECORD AT FRONT OF *) 

(* THE STACK *) 

START := P (» MAKE START POINT TO THE FRONT #) 

(# OF THE LIST •» ) 

END; (* PUSH *) 

■i h + 1 1- + i — + 

1 'ITAC'T ' "•■■ ' ' ' — ____"■■. I ' I "■■. 

1 O 1 Hr\ I I _■• I I 1 _•• III 

+ + + >H 1 H + h — h 

I I 

I I 

+ V — + ! 

1 Y 1 I 

I A F ~ »_..__ . 

+ 1- 
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DOUBLY LINKED LISTS 



definition: 



A DOUBLY LINKED LIST HAS 2 POINTERS - 
BLOCK OF DATA, AND ONE TO THE PREVIOU 



ONE TO THE NEXT 
BLOCK OF DATA. 



EXAMPLE: 



+ + 

1 START ! — 
+ + 



TYPE BLOCK 



V 
■ I / 1 



RECORD 
NEXT 
DATA 
BACK 

END; 



©block; 

integer; 

sblock 



-+ +- 



+-+ + 

I I --..I 



V 



-H — + 



+ H- 



-+— + 



H — + - 



■i — -I" 



I t 

t I 



* DOUBLY linked LISTS SIMPLIFY INSERTING AND DELETING BECAUSE 
THERE IS NO NEED TO KEEP A -BACK-- POINTER. 

* DOUBLY LINKED LISTS TAKE UP MORE SPACE THAN SINGLY LINKED LISTS. 
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SUMMARY 



A POINTER IS A VARIABLE THAT HOLDS THE ADDRESS OF A BLOCK 
OF MEMORY. ONCE A POINTER IS DECLARED AS POINTING TO A 
PARTICULAR TYPE OF DATA, IT MAY NOT POINT TO ANY OTHER TYPE. 

NIL IS A SPECEAL VALUE THAT ALLOWS A POINTER TO POINT TO 
NOTHING. NIL IS USED TO MARK THE END OF A LINKED LIST. 

NEW IS A FUNCTION WHICH ALLOCATES A NEW BLOCK OF DATA FOR 
A POINTER TO POINT TO. 

A LINKED LIST IS A CHAIN OF RECORDS JOINED BY POINTERS. 

A DOUBLY LINKED LIST HAS 2 POINTERS — ONE TO THE NEXT BLOCK 
AND ONE TO THE PREVIOUS BLOCK. 



A ■ y 
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WORKSHEET IX 



1. "WRITE THE DECLARATION STATEMENTS FOR THE FOLLOWING: 

DECLARE A TYPE -BLOCK- WHICH IS A RECORD WITH 2 FIELDS 
ONE FIELD IS AN INTEGER AND THE OTHER IS A POINTER Tn 
TYPE BLOCK. 



DECLARE VARIABLES PI AND P2 WHICH POINT TO TYPE BLOCK. 



RITE STATEMENTS WHICH* DO THE FOLLOWING: 

ASSUME PI AND P2 ARE POINTERS. PI POINTS TO A BLOCK OF 
DATA. WRITE AN ASSIGNMENT STATEMENT TO MAKE P2 POINT 
TO THE SAME RECORD AS PI. 



ASSIGN A VALUE OF 10 TO THE INTEGER FIELD OF THE BLOCK 
POINTED TO BY PI, 



ALLOCATE A NEW RECORD POINTED TO BY P2. 



6. SET THE POINTER FIELD OF THE NEW RECORD TO NIL, 



7, COPY THE DATA FROM Pl-'S INTEGER FIELD INTO P2-S INTEGER 
FIELD. 



SET THE POINTER FIELD OF PI'S RECORD TO POINT TO P2 
RECORD. 



V. 



DRAW A PICTURE OF PI AND P2 BEFORE AND AFTER THE 
STATEMENT FOR QUESTION S IS EXECUTED. ASSUME THAT 
INITIALLY BOTH POINTER FIELDS ARE NIL. 
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10. ASSUME TYPE REC 



REC = RECORD 




DATA : 


: REAL; 


PTR : 


@REC 


END; 




VAR Q : ©REC; 





DRAW A PICTURE OF THE POINTER Q AFTER EXECUTING NEW(Q) 



11. DRAW A PICTURE OF A LINKED LIST OF 4 RECORDS OF TYPE REC ABOVE. 
THE POINTER START POINTS TO THE FIRST OF THE LIST. THE POINTER 
FIELD OF THE LAST RECORD IS NIL. 



GIVEN THE FOLLOWING DECLARATIONS: 



TYPE BLOCK 


= RECORD 






DATA 


: t; 




LINK 


: ©BLOCK 




END; 




VAR START : 


©BLOCK ; 





WRITE A PROCEDURE POP(X : T) WHICH WILL "POP" THE VALUE X 
OFF OF A STACK POINTED TO BY START, IF THE STACK IS NIL, 
CALL A PROCEDURE -UNDERFLOW-. 

APPROACH: TEST FOR NIL START (UNDERFLOW) 

IF START IS NOT NIL THEN ASSIGN X THE VALUE OF THE 

THE DATA FIELD. 
MAKE START POINT TO THE NEXT RECORD IN THE LIST 
( THE OTHER RECORD WILL STILL BE THERE BUT IT WILL 
NOT BE ACCESSIBLE AS PART OF THE LST) 






13. DECLARE A RECORD DLIST FOR A DOUBLY LINKED LIST. THE 
DATA FIELD IS INTEGER. 



14. INDICATE ON THE DIAGRAM HOW THE POINTERS MUST BE MANIPULATED 
TO INSERT P-S BLOCK AT THE FRONT OF THE LIST. 
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SETS AND TYPE TRANSFERS 



OBJECTIVES: 

THE STUDENT SHOULD BE ABLE TO DEC:l_ARE A SET AND MANIF'ULATE 
SETS USING THE SET OPERATORS. 

THE STUDENT SHOULD BE ABLE TO CHANGE IHE TYPE OF A VARIABLE 
BY USING THE TYPE TRANSFER STATEMENT. 
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SETS.POl 



SETS 



SYNTAX: TYPE < IDENTIFIER > = SET OF < BASE TYPE > 

< BASE TYPE > MAY BE : ENUMEF^ATION TYPE 

DYNAMIC: SET TYPE 

MAY NOT INCLUDE NEGATIVE INTEGERS 

MAXIMUM OF 1032 ELEMENTS 



EXAMPLES : TYPE COLOR = (RED, ORANGE, YELLOW, GREEN, BLUE, VIOLET); 

MIX = SET OF COLOR; 
STUDENTNAME = (JOE, JOHN, JIM, JANE, LES, MARTIN); 

VAR INT, WORD, VOWELS : SET OF -^ A" . . -Z'' ; 
SHADE : SET OF YELLOW .. BLUE; 
CLASS : SET OF STUDENTNAME; 

COURSE : ARRAY C COURSENUMBER 1 OF SET OF STUDENTNAME; 
HUE : MIX; 

CONSTRUCTING A SET: 

HUE := C YELLOW, GREEN 3; 

INT := C 'I'- .. -N' 3; 

COURSE C I 3 := C JIM, JILL 3; 

C3 DENOTES THE EMPTY SET 

IF M > N THEN CM..N3 DENOTES THE EMPTY SET 



SET OPERATORS: 

+ UNION 

» INTERSECTION 

SET DIFFERENCE 

EQUALITY 
<> INEQUALITY 
<= SET INCLUSION 
>= SET INCLUSION 
■C PROPER SET INCLUSION 

> PROPER SET INCLUSION 
IN SET MEMBERSHIP 



m 



SETS.PO: 



EXAMPLE:; 



VOWELS := L •A-', -■E-, ••I-, -"O-, -U' 3; 
WORD := CJ; 
READ (CH); 

WHILE NOT (CH IN C ■• •- , •■■,■•, ■■■.■■ 1) DO 
BEGIN 

WORD := WORD + C CH li 

READ (CH) 
END; 
IF WORD ■«■ VOWELS = L2 THEN WRITELN ( -• NO VOWELS'); 
IF WORD <> VOWELS THEN WRITELN(- ONLY VOWELS') 



TYPE BITS = SET OF 0..2; 

VAR MASK I, MASK2, MASKS, SETA, SETS : BITS; 

MASKl := C03; 
MASK2 := CI 3; 
MASKS := CO, 13; 

(* MASKING BY INTERSECTION *) 
SETB := SETA * MASK2; 

(* EXCLUSIVE OR ») 

SETB := SETA + SETB - SETA * SETB 

»»NOTES: BECAUSE OF OPERATOR PRECEDENCE, SET EXPRESSIONS MAY HAVE 
TO BE PARENTHESIZED TO PRODUCE THE DESIRED RESULTS. 

A -t- B » C = A + ( B * C ) 



ITERATION OVER SETS 

FOR < CONTROL VARIABLE > IN < SET EXPRESSION > DO < STATEMENT 
EXAMPLE: FOR I IN CI, 3, 5, 7, 4, 6, 103 DO < STATEMENT > 
VAR ALLERRORS : SET OF 1..400; 

FOR I IN ALLERRORS DO. . 
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DYNAMIC SETS 



EXAMPLE: TYPE COLORS = ( RED, YELLOW, .GREEN, ORANGE, PINK )? 
C0L0RSE1 = SET OF COLORS; 
VAR SHADE : SET OF GREEN . . UB ( COLORSET ) ; 



PROGRAM EXAMPLES 



PROGRAM SETOP; 

(* EXAMPLE OF SET OPERATIONS *) 

TYPE DAYS = (M, T, W, TH, FR, SA, SU); 

WEEK = SET OF DAYS; 
VAR WK, WORK, FREE : WEEK; 

D : DAYS; 

PROCEDURE CHECK ( S : WEEK); 

VAR D : DAYS; 

BEGIN 

WRITE ('■ ■'); 

FOR D := M TO SU DO 

IF D IN S THEN WRITE (•'X') ELSE WRITD (-O-); 

WRITELN 
END; (» CHECK ») 

BEGIN (» SETOP *) 

WORK := C3; FREE := CD; 

WK := CM..SU3; 

D := SA; 

FREE := CD: + FREE + CSUD; 

CHECK ( FREE ); 

WORK := WK - FREE; 

CHECK ( WORK ); 

IF FREE <= WK THEN WRITE ('O-'); 

IF NOT ( WORK >= FREE ) THEN WRITE < •- JACK"); 

IF CSA3 <= WORK THEN WRITE ( -■ FORGET IT'); 

WRITELN 
END. (# SETOP *) 
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SETS.P04 

PRIME NUMBER SEIVE 

1. PUT ALL THE NUMBERS BETWEEN 2 AND N INTO THE "SEIVE" 

2. SELECT AND REMOVE THE SMALLEST NUMBER REMAIN ENG IN THE 
SEIVE. 

3. INCLUDE THIS NUMBER IN THE "PRIMES". 

4. STEP THROUGH THE SEIVE, REMOVING ALL MULTIPLES OF THIS NUMBER. 

5. IF THE SEIVE IS NOT EMPTY, REPEAT STEPS 2—5. 



CONST N = 1000; 

VAR SEIVE, PRIMES : SET OF 2..N,- 
NEXT, J : INTEGER; 

BEGIN (# INITIALIZE *) 
SEIVE := C2..N]; 
PRIMES := C3; 
NEXT := 2? 
REPEAT (# FIND THE NEXT PRIME ») 

WHILE NOT (NEXT IN SEIVE) DO NEXT := SUCC ( NEXT ) 
PRIMES := PRIMES + CNEXTH; 
J := NEXT; 

WHILE J O N DO <* ELIMINATE MULTIPLES OF NEXT *) 
BEGIN 

SEIVE := SEIVE - CJ]; 
J := J + NEXT 
END 
UNTIL SEIVE = C: 
END. 
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TYPE TRANSFER 



TYPE TRANSFER IS A MEANS OF TEMPORARILY CHANGING THE "TYPE OF 
AN EXISTING VARIABLE, 



SYNTAX! 
EXAMPLE: 



< VARIABLE > 



< TYPE IDENTIFIER 



TYPE BYTE = 0. .#FF; 

RECTYPE = PACKED RECORD 

MSBYTE, LSBYTE 
END! 



BYTE 



VAR V : ARRAY CI.. 10] OF INTEGER? 
R ! RECTYPE? 

BEGIN 

VC 1 ] := #F6C1? 



(* VALID TYPE TRANSFERS ARE: ») 
R. MSBYTE := VC 1 3 s: BYTE? 
R. LSBYTE := #FF? 
VC 2 D :: BYTE := R. LSBYTE? 



(» R. MSBYTE = CI *) 
(» R = CIFF *) 
(» VC 2 : = OOFF #) 



*»NOTES : THE VARIABLE MUST NOT BE DECLARED TO BE A PROCEDURE, 
FUNCTION OR CONSTANT. 

A VARIABLE WHICH IS A COMPONENT OF A PACKED STRUCTURE 
MAY ONLY BE TRANSFERRED TO A TYPE REPRESENT ABLE WITHIN 
THE BOUNDARIES OF THAT COMPONENT. 



I.E. R. MSBYTE 



INTEGER IS ILLEGAL 



THE TYPE TRANSFER APPLIES ONLY IN THE VARIABLE IN WHICH 
IT IS STATED. 
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WORKSHEET 13 



Declare a variable which is a set consi stins of the 
people in this class. 



Write an assignment statement to include only voursel f in 
the above set. 



Declare a set consisting of integers through 100. 



Write a type transfer statement which will access a variable of 
tvpe CHAR as an inteser and increment it bv 10. 
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STUDEINTS SHniJL...D BE ABLE TO DECLARE A FILE OF Tl iE APr'Fi:npR T A I E TVHE 
FOR A OIVEM APPl.,.Ii;::ATinN 

STUDENTS SHOULD BE ABLE TO WRITE A PASCAL PROGRAM WHIChi PERFORMS 
I/O OPERATIONS TO AN UNFORMATTED FILE 

STUDENTS SHUUL..D BE ABLE TO ASSIGN SYNONYMS TO ASSOCIATE A PASCAL 
FILE WITH A DXIO FILE 

STUDENTS SHOULD BE ABLE TO CREATE THEIR OWN FILES WITH THE 
APPROPRIATE LOGICAL AND PHYSICAL RECORD LENGTHS FOR A GIVEN APPLICATION 



AGENDA 



J. . FILES 

" TEXT FILES 

- UNFORMATTED FILES 

2., SEQUENTIAL FILES 

3„ RELATIVE RECORD ( RANDOM ACCESS ) FILE:! 

4, DXIO FILES 

- CHARACTERISTICS 

- ASSIGNING SYNONYMS 

- CREATING DXIO FILES 
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FILEi 



TEXT FILES 



RECALL THAT THE FOLLOWING TYPES MAY BE WRITTEN TO A TEXT FILE 



CHAR DECIMAL 

INTEGER FIXED 

LONG I NT BOOLEAN 

REAL(N> STRINGS ( PACKED ARRAYS OF CHARACTERS ) 



TEXT FILE CHARACTERISTICS 

- ALL I/O IS DONE IN CHARACTER FORMAT 

- IMPLICIT CONVERSION TO CHARACTER FORMAT FOR NON-CHARACTER 

DATA TYPES 

- RANDOM ACCESS TEXT FILES ARE NOT ALLOWED 

- STANDARD I/O FILES 'INPUT' AND 'OUTPUT' ARE TEXT FILES 

- DATA IS ORGANIZED IN 'LINES' 

- 80 BYTE ( CHARACTER ) RECORDS IF AUTO CREATED 
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NON-TEXT FILES ( REFERENCE - PASCAL USER MANUAL, SEC. 6.5 ) 



PURPOSE: TO SERVE AS SEQUENTIAL OR RANDOM ACCESS MASS STORAGE 
MEDIUM FOR MOST DATA TYPES 



DECLARATION: 

VAR < FILE NAME > : C RANDOM 3 FILE OF < TYPE : 
WHERE, 

< TYPE > CANNOT BE 

- FILE 

- POINTER 

- ARRAY OF FILES OR POINTERS 

- RECORD WITH A FILE OR POINTER COMPONENT 

EXAMPLES: 



TYPE VECTOR = ARRAY C 1..10 1 OF INTEGER; 
RTYPE = RECORD 

DATl : INTEGER; 
DAT2 : REAL; 

DATS : ARRAY C 1 . . 5 ] OF CHAR 
END; 

VAR Fl : FILE OF VECTOR; 
F2 : FILE OF INTEGER; 
F3 : RANDOM FILE OF RTYPE; 



CHARACTERISTICS OF NON-TEXT FILES 



- DATA WRITTEN OR READ MUST BE OF THE SAME TYPE 

AS THE FILE 

- DATA IS NOT CONVERTED TO/FROM CHARACTER FORMAT FOR 1/0 

- NON-TEXT FILES MAY BE ACCESSED BY RECORD NUMBER IF 
THEY ARE DECLARED TO BE -RANDOM- 

- DATA IS ORGANIZED IN RECORDS, NOT -LINES' ( I.E. EOLN 

DOES NOT APPLY TO NON-TEXT FILES ) 
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SEQUENTIAL FILES 

- SUPPORT MULTIPLE END-OF-FILES ( EOF-S ) 

- MUST BE ACCESSED SEQUENTIALLY 

~ WHEN OPEN FOR INPUT, ACCESS IS READ-ONLY 

- WHEN OPEN FOR OUTPUT, ACCESS IS EXCLUSIVE WRITE 

- MAY NOT BE OPEN FOR READ/WRITE AT ONCE 

- EACH RECORD IS EITHER A COMPONENT OF THE SAME TYPE 

AS THE FILE OR AN -EOF- MARK 
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I 


I 


I 


I 


I 


I 



I E I 
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I F I 
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I/O PROCEDURES AND FUNCTIONS 



REWR1TE( F ) 



- OPENS 'F- FOR OUTPUT 

- FILE IS EMPTY AFTER OPEN ( ERASED ) 

- EOF( F ) IS SET TO 'TRUE-- 



EXTEND( F ) 



OPEN --F- FOR OUTPUT 

POSITION TO WRITE FOLLOWING LAST RECORD IN FILE 



RESET ( F ) 



OPEN --F- FOR INPUT 

-F- IS POSITIONED TO THE FIRST COMPONENT OF THE 
FIRST LOGICAL FILE < REWIND ) 

IF -F-- IS EMPTY THEN EOF ( F ) GETS SET TO -TRUE' 
ELSE EOF( F ) GETS SET TO - FALSE - 
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CLOSE ( F ) - -F-- IS CLOSED 



AN EOF IS WRITTEN BEFORE CLOSING WHEN FILE IS OPEN 
FOR OUTPUr 



READ( F, V ) - NEXT COMPONENT OF •F-- IS ASSIGNED TO THE VARIABLE -V- 

- EOF( F ) BECOMES TRUE WHEN THE LAST COMPONENT OF A 
LOGICAL FILE IS READ 

- USE 'SKIPFILES' TO PASS THE EOF 



WRITE ( F, E ) - WRITE VALUE OF THE EXPRESSION -E- AS THE NEXT 

COMPONENT OF •■F" 



WRITEEOF< F ) - WRITE AN EOF MARK ON -■F- 



SHaPFILES < F, NFILE ) - SKIP 'NFILE-- ( INTEGER > EOF MARKS 

AND POSITION FILE TO FIRST RECORD OF 
LOGICAL FILE 



BEFORE 

I I I lEII lEI II lEI I lEIE I 1 

I I I...I I I...I I I I..-I I I...I I I 1 

I 1 I IFII IFI II IFI I IFIM I 1 



-1 1 AFTER 
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i-<EC:;jF<D 

PA : IriTEGEFt? 

PC : CMAR 
VAI 2 : RPi":; 



■■!'■•;■■■ r '-. I , -■ ^r :"'■■ i~ -r r~ T j i— ■., ■■ 

W r : I vAi.. i. ijn 

PEG IN 

i-'j^ : := 47 ; 

PP ;== 3.4? 
PC : = •'A-' ; 

END; 

REWRITEf SEQFILE )? (* OPEN SEQFILE FOR OUTPUT * ) 

WRITE ( 'SEQFILE, WALl )? 

CLOSE ( SEQFILE )? 

RESET ( SEQFILE ); (* OPEN SEQFILE FOR INPUT ■« ) 

READ ( SEQFILE, VAL2 ); 

CLOSE (SEQFILE )? 

(* OUTPUT THE VALUE OF TUB INPUT VARIABLE -VAL:':-- TO VERIFY THAT 
VALUES WERE WRITTEN AND READ CORRECTLY TO AND FROM THE 
SEQUENTIAL FILE #) 

WRITELN; 

WRITELN < ••■VAL2.PA = - , VAL2.PA); 
WRITELN < -VALZ.PB = - , VAL2.PB); 
WRITELN ( •■■VAL2.PC = - , VAL2.PC); 

END, 

MAXIMUM NUMBER IF IDENTIFIERS USED = S 

INSTRUCTIONS = 101 (LESS WORDS OF DEAD CODE REMOVED) 
TESTFILE LITERALS = 108 CODE = 448 DATA - 176 
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RANDOM FILES 



SUPPORTS SINGLE EOF (AFTER -LAST- RECORD) 

ACCESSED BY RECORD NUMBER 

MAY BE OPEN FOR BOTH READ AND WRITE AT ONCE 
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I/O PROCEDURES . AND FUNCTIONS 



I N 



E 

F 



I 
I 
I 



REWRITE (F) 



EXTEND (F) 
RESET (F) 
READ (F,REC,V) 



WRITE (F,REC,E) 



- OPEN 'F'' FOR INPUT/OUTPUT WITH EXCLUSIVE 
WRITE ACCESS 

- FILE IS EMPTY (ERASED) 

- OPEN -F- FOR INPUT /OUTPUT WITH SHARED ACCESS 

- OPEN 'F- FOR INPUT WITH READ-ONLY ACCESS 

- ASSIGN THE 'REC-' (INTEGER 0-N) COMPONENT OF -'F' 
TO THE VARIABLE 'V- 

- IF -REC- DOES NOT EXIST THEN EOF (F) = TRUE 

- WRITE THE VALUE OF -'E-' AS THE -REC-' COMPONENT 
OF -F- 

- -REC' >= 0. 
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nr!GIM '■ :-•■ RAMfi :■*■ ) 
F':ECNIJM :- fe- 
[4 [J [A vAl.l EiiJ 
BEGIN 

PA := 22; 

PB := 6.9; 
PC ■=-. ■■•R--; 

END? 

REWRITE ( RELREC ); ( m OPEN AND ERASE EIi...E *- 
WRITE ( RELREC, RECNUM, VAl,! ) " 
READ ( REL.REC, RECNUfU VAL2 )? 
CLOSE ( RELREC ) ; 
(s WRITE THE VALUES OF HE RECORD READ BACK FRON THE FILE •« ) 

WRITELN; 

WRITELN( ■•■ VAL2.PA = ■- , VAL2.PA,-- VAL2.PB = -SVVUJJ.PB, 
•■■ VAL2.PC = •-, VAL2.PC ); 
END. ( «■ RAND ») 

MAXIMUM NUMBER OF IDENTIFIERS USED = 9 

INSTRUCTIONS = 94 (LESS WORDS OF DEAD CODE REMOVED) 
RAND LITERALS = 114 CODE = 4S2 DATA = ISO 
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ASSOCIATING DXIO FILES WITH TIP FILE NAMES 

- SYNONYHS ARE USED TO BIND A TIP FILE NAME TO AN ACTUAL FILE, 

C:]AS 

ASSIGN SYNONYM 

SYNONYM: SEQFIL 

VALUE: T I. PASCAL. DATA. SEQFIL 



**N0TE: FILE SYNONYMS MUST BE ASSIGNED BEFORE PROGRAM IS EXECUTED. 



»*NOTE: THE FILE SPECIFIED AS 'VALUE-' IN THE SYNONYM ASSIGNMENT NEED 
NOT EXIST, TIP WILL CREATE IT WHEN IT IS OPENED. 



»*N0TE: IF NO SYNONYM FOR A TIP FILE EXISTS, THE FILE IS CREATED ON 
THE SYSTEM DISK AS <NAME> NN, WHERE NN IS THE STATION ID. 



EXAMPLE: 



VAR TEST : FILE OF INTEGER; 



FILE NAME BECOMES -TESTOS- IF YOU ARE EXECUTING FROM 
ST03 
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WORKSHEET I4 



1. DECLARE A SEQUENTIAL FILE WHICH HAS COMPONENTS OF THE FOLLOWING 

TYPE: 

TYPE BIGREC = RECORD 

TOP : INTEGER; 
BOTTOM : INTEGER; 

MATRIX : ARRAY C 1 . . 50 3 OF CHAR 
END? 



DECLARE A RANDOM ACCESS FILE WHICH HAS COMPONENTS OF THE FOLLOWING 
TYPE 

TYPE BVECTOR = PACKED ARRAY C 1..100 ] OF BOOLEAN; 



FOR EACH OF THE FOLLOWING, WRITE THE PASCAL STATEMENTS REQUIRED TO 
CARRY OUT THE OPERATION (NO DECLARATIONS NECESSARY) 



3. OPEN AND ERASE THE SEQUENTIAL FILE -SEQ- 



4. SKIP OVER NEXT EOF IN THE SEQUENTIAL FILE -SEQ-. IF END~OF-MEDIUM 
HAS BEEN REACHED, SET THE VARIABLE -I- TO ZERO. 



OPEN THE RANDOM FILE -RELREC- FOR INPUT/OUTPUT, DO NOT ERASE THE 
FILE WHEN YOU OPEN IT. 
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6. WRITE THE VALUE OF THE VARIABLE -VAL- TO RECORD 38 OF THE RANDOM 
FILE ■RELREC- 
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FILE ALLOCATION AND BLOCKING 



ALLOCATION UNITS ( ADLI-S ) 



DISK SPACE IS ALLOCATED IN CHUNK -S CALLED ALLOCATION UNITS. THE 
SIZE OF AN ADU AND THE TOTAL NUMBER OF ADU'S ON A DISK IS DEPENDENT 
ON THE TYPE OF DISK BEING USED. 



DISK STATISTICS 



DS31 DSIO T25 T50 T200 



HEADS/DISK 

TRACKS/ DISK 

SECTORS /TRACK 

BYTES/ SECTOR 

SECTORS/ADU 112 3 



PHYSICAL RECORDS 
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4 


5 


5 


19 


406 


li.32 


2040 


4075 


15485 


24 


20 


38 


33 


38 


2SS 


288 


283 


283 


238 



DEFINITION: A FILE'S PHYSICAL RECORD LENGTH IS THE NUMBER OF BYTES 
READ OR WRITTEN DURING AN ACCESS TO THE FILE. 



CHARACTERISTICS: 

- ALWAYS BEGIN ON A SECTOR BOUNDARY 

- SHOULD BE AN INTEGRAL MULTIPLE OF THE SECTOR LENGTH 
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LOGICAL RECORDS- 



DEFINITION: A FILE-S LOGICAL RECORD LENGTH IS THE NUMBER OF BYTES 
REQUIRED BY A PROGRAM FOR A PARTICULAR [/O OPERATION. 



CHARACTERISTICS: 

- USUALLY, MANY LOGICAL RECORDS MAY BE STORED IN A SINGLE 
PHYSICAL RECORD. 

- FOR PASCAL FILES THIS VALUE IS THE NUMBER OF BYTES REQUIRED 
TO HOLD A RECORD OF THE TYPE THE FILE IS DECLARED TO BE, 



BLOCKING 



L = LOGICAL RECORD LENGTH 
P = PHYSICAL RECORD LENGTH 



# LOGICAL RECORD/PHYSICAL RECORD = P DIV L 



I I I I I NOT I 

I LRl I LR2 I LR3 I LR4 I USED I L = 200 SFBYTES 



I 
P = 864 BYTES 



»#N0TE: a logical RECORD WILL NOT USUALLY SPAN A PHYSICAL RECORD 
BOUNDARY 

*«NOTE: PHYSICAL RECORDS BEGIN ON A SECTOR BOUNDARY 
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EXAMPLE: 



PROGRAM FILES; 



TYPE RELREC = RECORD 

PI : INTEGER; 
P2 : REAL; 

P3 : PACKED ARRAY CI.. 40 3 OF CHAR 
END; 



TYPE SEQREC = RECORD 

PI : ARRAY LI.. 10] OF LONG I NT; 
P2 : REAL; 

P3 : ARRAY LI.. 10 3 OF CHAR 
END; 



VAR RADFILE : RANDOM FILE OF RELREC; 
SEQFILE : FILE OF SEQREC; 



PASCAL WOULD CREATE THESE FILES AS FOLLOWS: 



RADFILE - PHYSICAL RECORD LENGTH 864 BYTES 
LOGICAL RECORD LENGTH 46 BYTES 
BLOCKING FACTOR =18 TO 1 



SEQFILE - PHYSICAL RECORD LENGTH 864 BYTES 
LOGICAL RECORD LENGTH 64 BYTES 
BLOCKING FACTOR = 13 TO 1 



o( 
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CREATING YOUR OWN FILES 



CREATE SEQUENTIAL FILE ( CFSEQ ) COMMAND 



PURPOSE: TO CREATE A SEQUENTIAL FILE EXPLICITLY WITH THE 
CHARACTERISTICS REQUIRED BY YOUR PROGRAM. 



FORMAT: 
C] CFSEQ 

CREATE SEQUENTIAL FILE 
PATHNAME: 
LOGICAL RECORD LENGTH: 
PHYSICAL RECORD LENGTH: 



< PATHNAME OF NEW FILE > 

< LENGTH OF LOGICAL RECORDS IN BYTES : 

< LENGTH OF PHYSICAL RECORDS IN BYTES 



INITIAL ALLOCATION: < NUMBER OF LOGICAL RECORDS TO BE ALLOCATED 

SECONDARY ALLOCATION: < LOGICAL RECORDS FOR SECOND ALLOCATION IF 

FILE IS EXPANDABLE 
EXPANDABLE?: YES/NO < IS FILE EXPANDABLE? > 



BLANK SUPPRESS? 



YES/NO <: IS FILE BLANK SUPPRESSED? > 



FORCED WRITE?: YES/NO < SHOULD THE FORCED WRITE OPTION BE 

USED? > 



EXAMPLE: 



C: CFSEQ 

CREATE SEQUENTIAL FILE 

PATHNAME 
LOGICAL RECORD LENGTH: 80 
PHYSICAL RECORD LENGTH: 364 
INITIAL ALLOCATION: 
SECONDARY ALLOCATION: 
EXPANDABLE?: 
BLANK SUPPRESSED?: 
FORCED WRITE?: 



TI . PASCAL. DATA. SEQFIL 



i; 



YES 

NO 

NO 
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CREATE RELATIVE RECORD FILE ( CFREL ) COMMAND 

PURPOSE: TO CREATE A RELATIVE RECORD ( RANDOM ) FILE EXPLICITLY 
WITH THE CHARACTERISTICS REQUIRED BY YOUR PROGRAM. 

FORMAT: 

CD CFREL 

CREATE RELATIVE RECORD FILE 

PATHNAME: < PATHNAME OF NEW FILES- 
LOGICAL RECORD LENGTH: < LENGTH OF LOGICAL RECORDS IN TYPES > 
PHYSICAL RECORD LENGTH: < LENGTH OF PHYSICAL RECORDS IN BYTES > 

INITIAL ALLOCATION: < NUMBER OF LOGICAL RECORDS TO BE ALLOCATED 

INITIALLY ; 

SECONDARY ALLOCATION: < LOGICAL RECORDS FOR SECOND ALLOCATION IF 

EXPANDABLE > 

EXPANDABLE?: YES/NO < IS FILE EXPANDABLE > 

FORCED WRITE?: YES/NO < SHOULD THE FORCED WRITE OPTION BE 

USED : 

EXAMPLE: 



C] CFREL 

CREATE RELATIVE RECORD FILE 

PATHNAME 

LOGICAL RECORD LENGTH 

PHYSICAL RECORD LENGTH 

INITIAL ALLOCATION 

SECONDARY ALLOCATION 

EXPANDABLE? 

FORCED WRITE? 



T I . PASCAL . DATA . SEQF I L 

80 

S64 

15 

5 

YES 

NO 
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ASSIGNMENT 



It is desired to monitor the temperature in a room. A fan 
circulates air in the room. In setting up the SYstemj it is 
observed that the temperature readout fluctuates due to the air 
turbulence in the room. To offset the effect of f 1 uctuation57 
it is decided to smooth the temperature data bv computing a moving 
average of the data over the most recent 10 samples of data. The 
smoothed data are then recorded on a file. 

3A. The temperature samples are recorded on file PASCAL. DATA. DATA3. 
Your program should read a temperature from the file and echo 
print. Then insert it onto the front of a linked list. After 
all the data has been read^ print out the linked list starting 
at the front to be sure the data has been read in correctly. 
( when vou print out the list» the data should appear in reverse 
order. ) 

You should do the following: 

Create a record containing a field for the temperature and 
a field for the pointer to the next record. 

Create a pointer (perhaps called START) to point to the 
front of vour list. 

You should create the following procedures: 

READ_ECHO : reads a temperature into a record. 

sets the pointer field of that record to NIL. 

echo prints the number 

Parameters : a pointer to the record. 

INSERT : Inserts the record into the front of the list 
Parameters : pointer to. the record 

PRINT-LIST: Prints out the linked list 

Your main program should do the following: 

Reset the data file 

initialize the pointer to the front of the list 
check for EOF 
check for EOLN 

call READ-ECHO 

can INSERT 
can PRINT-LIST 



^.'/y 



3B. Pririgram 3A read in the data and created a linked list. 
Program 36 will keep a record of the running averages. 
To do this uje will keep onlv the last 10 temperatures read 
in the linked list. This means that uje will read in 10 values-, 
and calculate the first average. After that each time lue read in 
a new value and insert it into the front of the list-, we will 
have to delete a value from the end of the list. Each time 
a new value is read in^ the average of the last 10 values should 
be computed and printed out. 

You should create the following procedure: 

DELETE-LAST : Disposes of the last record in the list. 

sets the pointer field of the new end record 
to NIL. 

Create the following function: 

AVG : averages the 10 records on the list. 
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■iC . File T I . DATA . DATA4 contains the f o 1 1 ow i ns i n f o r-ma t i o n 
on each erriplovee. 



EmploY€fe number- 
Name 

social sec no. 
street 
citYi state 



1 digit ( This is a small company ) 

MP to 20 characters 

9 digits 

25 characters 

20 characters 



Exam pie: 1 Ja n e L o h d i I 1 

6708 Beckett Road 
Austin, Texas 7S749 
2Les Wvatt 



455S09 1 90 



Using the employee number as the record number, 
read the file and store the information in a relative 
record file. Write the records back out in the order 
of employee number. Use any format you wish to write out 

« 

the records. 
STRATEGY: 

Declare a relative record file (RANDOM FILE OF ). 

- Let n be a constant which is the number of employees. 

In this case n = 9. 

- Create 2 procedures: 

READ-ECHO : Reads the data into a IPASCAL record and 

echo prints. 
PRINT-FILE : reads data from the relative record file 

into a PASCAL record. 

writes the record out to the output file. 

- Your main program should do the following: 

Open the relative record file (rewrite or extend) 

Open the input file 

For each employee data do the following 

Initialize the street field and city, state field of the 
Pascal record to blanks 

Cal I READ-ECHO to read data into Pascal record 

Write the data out to the relative file 
Cal 1 PRINT-FILE 
Close the relative record file 
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JD Run vour progream a second time and update rour File usin":! 
TI.DATA.DATA5 

- The file you created during the first run is stored 
a-s . <f i 1 ename>Ox where x = terminal number. 

filename = the name vou called 
the file in y o u r p r- o gram. 

- To access the same file again^ assign . <f i 1 enaiTie>Ox 
a s Y n o n y m which is the n a m e v o u use in y o u r program. 

This time open the file using the -EXTEMD-' command 

- There is no 'change-code-'' to tell you which field 
to change^ so you will have to write the entire 
new record out. 

- Print out the updated file in the order of empl o't'ee no. 
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LANGUAGE LINKAGE CONVENTIONS 



OBJECTIVES 



TO AQUA I NT INTERESTED STUDENTS WITH THE TECHNIQUES REQUIRED 
TO LINK IN AN EXTERNAL ROUTINE WRITTEN IN PASCAL, FORTRAN, COBOL, 
OR ASSEMBLY LANGUAGE. 



TO ACQUAINT STUDENTS WITH THE TECHNIQUES REQUIRED TO LINK 
PASCAL PROGRAMS WHICH SHARE COMMON PROCEDURES AND RUNTIME 



AGENDA 



1. EXTERNAL PROCEDURE DECLARATIONS 

2. EXTERNAL PASCAL ROUTINES 

3. EXTERNAL FORTRAN ROUTINES 

4. EXTERNAL ASSEMBLY LANGUAGE ROUTINES 

5. REENTRANT PASCAL 
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LINKAGE CONVENTION TO OTHER LANGUAGE:! 



EXTERNAL ROUTINES 



ROUTINES OTHER THAN THOSE DEFINED IN YOUR PROGRAM MAY BE CALLED. 



ROUTINES WHICH MAY BE CALLED INCLUDE: 

- PASCAL ROUTINES 

- FORTRAN ROUTINES 

- REENTRANT FORTRAN ROUTINES 

- COBOL ROUTINES 

- ASSEMBLY LANGUAGE ROUTINES 



CALLING AN EXTERNAL PASCAL ROUTINE 



PASCAL ROUTINES WHICH ARE NOT DEFINED IN YOUR PROGRAM MUST BE 
DECLARED IN AN 'EXTERNAL-- PROCEDURE DECLARATION. 



SYNTAX! 

PROCEDURE <:NAME> ( < FARM LIST > ); EXTERNAL; 



EXAMPLE! 



PROCEDURE TEST ( VAR I : REAL ); EXTERNAL; 



TEST ( RVAL ); 

•H-«-NOTES: 

THE EXTERNAL PROCEDURE MUST BE PART OF COMPLETE PASCAL PROGRAM 

THE EXTERNAL PROCEDURE MUST BE DEFINED AT THE SAME LEVEL AS 

THE EXTERNAL PROCEDURE DECLARATION IN THE CALLING PROGRAM. 

THE MAIN PROGRAM WHICH CONTAINS THE EXTERNAL PROCEDURE 
MUST CONTAIN THE COMPILER OPTION -NO OBJECT-, 



3^5- 



EXAMPLE: 
MAIN 



PROGRAM EXTTST; 



VAR 1 : INTEGER; 



PROCEDURE EXT ( VAR J : INTEGER >; EXTERNAL; 



BEGIN (* EXTTST *> 

I : =5; (^-INITIALIZE !«•) 

EXT ( I ); (*CALL EXTERNAL PROC») 

WRITELN ( ■' AFTER CALL I = ■- , 1:3 ); 

END. (* EXTTST *) 



EXT. PROC 



PROGRAM DUMY; 

PROCEDURE EXT < VAR J : INTEGER ); 

VAR TEMP : INTEGER; 

BEGIN <» EXT *) 
TEMP := J + l; 
J := TEMP; 

WRITELN ( •' HI FROM EXTERNAL ROUTINE 
END; (# EXT *) 

BEGIN (»DUMY*) 

<** NO OBJECT ») 
END. (»DUMY») 

LINK CONTROL FILE 



NOSYMT 

FORMAT I MAGE , REPLACE , 3 

LIBRARY .TIP. OBJ 

TASK EXT 

INCLUDE (MAIN) 

I NCLUDE T I . PASCAL . OBJ . E X TST 

I NCLUDE T I . PASCAL . OBJ .EXT 

END 



>r^; ^,5 
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CALLING A FORTRAN SUBROUTINE 

TO CALL A FORTRAN SUBROUTINE, A FORTRAN PROCEDURE DEFINITION MUST 
BE MADE. 



PROCEDURE FTN < I : INTEGER! 

R : REAL ); EXTERNAL FORTRAN; 



FTN (VAL1,VAL2); 

»»NOTE: 

THE FORMAL PARAMETERS IN THE FORTRAN PROCEDURE DEFINITION 
SHOULD MATCH THOSE IN THE FORTRAN SUBROUTINE IN TYPE AND SIZE 

"VAR'ED" PARAMETERS ARE CALLED BY REFERENCE AND "UN-VAR-ED" 
PARAMETERS ARE CALLED BY VALUE. 



PASCAL PROGRAM TO CALL FORTRAN ROUTINE 



PROGRAM FTNTST; 

VAR VALl ! INTEGER; 
VAL2 : REAL; 

* THIS IS AN EXTERNAL FORTRAN PROCEDURE. IT INCREMENTS THE VALUE * 

* OF EACH OF IT-S TWO PARAMETERS AND RETURNS THOSE VALUES # 
*«**»#***«*»»«*»#*»*»»«**#*#*»*##*#**###*#####*■»###*##■»##*##*«*##* ) 

PROCEDURE FTN ( VAR I : INTEGER; 

VAR R : REAL ); EXTERNAL FORTRAN; 

BEGIN <# FTNTST *) 

VALl := 47;' 

VAL2 := 3.4; 

FTN ( VALl, VAL2 ); 

WRITELN ( ■• VALl = ■■ , VALl: 3, ■- VAL2 = •- , VAL2:7 ); 
END. (•«• FTNTST #) 



— / 
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SAMPLE EXTERNAL FORTRAN ROUTINE 



C 
C 
C 
C 

c 
c 
c 
c 
c 



THIS FORTRAN SUNBROUTINE IS CALLED BY A PASCAL PROGRAM. 
IT HAS TWO ARGUMENTS 



I 

R 



INTEGER 
REAL 



EACH OF THESE PARAMETERS IS CALLED BY REFERENCE AND 
EACH IS INCREMENTED BY ONE AND THE VALUE RETURNED 



I, R ) 



50 



SUBROUTINE FTN ( 

1 = 1 + 1 

R = R + 1.0 

WRITE ( 6, 50 ) 

FORMAT < " HI FROM FORTRAN 

RETURN 

END 



*»NOTE: A FORTRAN subroutine does not have to be part of a 
complete FORTRAN program. 



SAMPLE LINK CONTROL STREAM TO LINK EXTERNAL FORTRAN ROUTINE 



NOSYMT 

FORMAT I MAGE, REPLACE, 3 
LIBRARY .TIP. OBJ 
LIBRARY . FORTRN, OSLOBJ 
LIBRARY .FORTRN,STLOBJ 
TASK FORT 

INCLUDE (MAIN) 

INCLUDE (FTN 10) 

I NCLUDE T I . PASCAL . OBJ . FTNTST 

I NCLUDE T I . PASCAL . OBJ . FTN 
END 



d^l 



CALLING AN ASSEMBLY LANGUAGE ROUTINE 



IN ORDER TO CALL AN ASSEMBLY LANGUAGE ROUTINE, YOU MUST USE 
EITHER THE FORTRAN OR PASCAL LINKAGE CONVENTIONS. 



FORTRAN LINKAGE CONVENTIONS 



WHEN A FORTRAN SUBROUTINE CALL IS MADE THE FOLLOWING CODE I: 
GENERATED. 



CALL SUBl < Al, A2, . 



, AN ) 



GENERATES, 



ADDRES 



CODE 



COMMENTS 









REF 


SUBl 


xxxx 


+ 


00 


BLWP 


esuBi 


xxxx 


+ 


02 






xxxx 


+ 


04 


DATA 


N 


xxxx 


+ 


06 


DATA 


Al 


xxxx 


+ 


08 


DATA 


A2 



BLWP TO SUBROUTINE 

NUMBER OF ARC'S TO SUBl 
ADDRESS OF ARG 1 
ADDRESS OF ARG 2 



xxxx + ■?? 



DATA AN 



ADDRESS OF ARG N 



as'i 



IF A PASCAL PROCEDURE IS DEFINED AS -EXTERNAL FORTRAN--, THE SAME 
CALLING CODE IS GENERATED AS FOR A CALL IN A FORTRAN PROGRAM. 



EXAMPLE: 

VAR IVALl : INTEGER; 
IVAL2 : REAL; 

PROCEDURE TEST < I : INTEGER; 

J : REAL ); EXTERNAL FORTRAN; 



TEST (IVALl, IVAL2); 



»»NOTE: 

THE CODE ABOVE WOULD GENERATE THE SAME CODE AS 
FOLLOWING FORTRAN 



SUBROUTINE TEST ( I, J ) 



CALL TEST ( IVALl, IVAL2 ) 
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STRUCTURE OF THE ASSEMBLY ROUTINE 



IDT -ASMSUB- IDT NAME OF THE ASSM. SUB. 

DEF ASMSUB EXTERNAL DEFINITION OF TRAP VECTOR 

ASMSUB DATA WSP - NEW WORKSPACE POINTER - 

DATA ENTER - NEW PROGRAM COUNTER 

WSP BSS 32 RESERVE SPACE FOR REGISTERS 

* * 
» DATA AREA FOR SUB * 

# * 

ENTER EQU * ENTRY POINT INTO ROUTINE 

» PROCEDURE AREA FOR SUB » 

» RETURN LOGIC WHICH COULD BE USED FOLLOWS » 

MOV 14,7 GET FARM COUNT ADDRESS 

MOV »7,7 GET FARM COUNT 

INCT 14 INCREMENT PAST COUNT WORD 

SLA 7,1 R7 = R7*2 - TWO BYTES/ WORD 

A 7,14 INCREMENT PAST PARAMETERS 

RTWP RETURN TO PASCAL PROGRAM 

END END ASSEMBLER DIRECTIVE 



dbO 



SAMPLE PASCAL PROGRAM TO CALL EXTERNAL ASSEMBLY ROUTINE 



PROGRAM ASMTEST; 

VAR I : INTEGER; 
R : REAL; 
C : ARRAY C 1..5 1 OF CHAR; 

» THIS IS AN EXTERNAL ASSEMBLY LANGUAGE ROUTINE WHICH USES THE •»■ 
•»• FORTRAN LINKAGE CONVENTIONS. * 

PROCEDURE A3MSUB < VAR IVAL : INTEGER; 

VAR RVAL : REAL; 
VAR CVAL : CHAR ); EXTERNAL FORTRAN; 



BEGIN (» ASMTEST ») 


I := 5; 


R := 0,5; 


C C 1 D : 


= •'A'! 




C C 2 3 


:= --B' 




C C 3 : 


:= 'C- 




C C 4 ] 


:= I'l^ 




CCS] 


:= •'2' 




WRITELN < ' BEFORE CALL TO ASMSUB 


ASMSUB ( I, R, C C 3 3 ); 


WRITELN ( •' AFTER CALL I = •■',1:2 


END. (•» ASM- 


FEST * 


) 



); 



R = SRrlS, '■ CC33 



,CC33 ); 



SAMPLE LINK CONTROL STREAM FOR LINKING EXTERNAL ASSEMBLY ROUTINE 



NOSYMT 

FORMAT I MAGE , REPLACE , 3 

LIBRARY .TIP. OBJ 

TASK TEST 

INCLUDE <MAIN) 

I NCLUDE T I . PASCAL . OBJ . ASMTST 

I NCLUDE T I . PASCAL . OBJ . ASMSUB 

END 



3ii 



3. 1 # 



16:31:26 TUESDAY, APR 13, 1973. 



.LOR.FTNASM 

nUMY 

•LOR.EXTS 



SDSMAC 
ACCESS NAMES TABLE 
SOURCE ACCESS NAME= 
OBJECT ACCESS NAME= 
LISTING ACCESS NAME= 
ERROR ACCESS NAME= 
OPTIONS= TUNLST 

ilACRO LIBRARY PATHNAME= 

ASMSUB SDSMAC 3.1 » 16:31:26 TUESDAY, APR 18, 1973. 
ASSEMBLY LANGUAGE SUB CALLED FROM PASCAL 
0002 IDT -ASMSUB- 



DEF ASMSUB 



PAGE 000 1 



PAGE 0002 



0004 
0005 

0006 » 

0007 0000 0004 '" ASMSUB DATA WSP 

DATA ENTER 



* TWO WORD TRAP VECTOR FOR BLWP FROM PASCAL PROGRAM 



- NEW WORKSPACE POINTER - 

- NEW PROGRAM COUNTER 



OOOS 0002 002 A '■ 

0009 # 

0010 0004 WSP BSS 32 

0011 * 

0012 0024 SOOO RMASK DATA >8000 

0013 0026 0000 INT DATA 

0014 0028 0000 CHAR DATA 
0(") 15 » 

0016 # NOTE: WHEN THIS ROUTINE IS ENTERED, THE OLD PROGRAM COUN 

0017 » FROM THE PASCAL PROGRAM WHICH IS IN R14, CONTAINS 

0018 # ADDRESS OF THE WORD CONTAINING THE NUMBER OF PARAM 

0019 # IN THE EXTERNAL ROUTINE CALLING STATEMENT 



RESERVE NEW WORKSPACE AREA 

REAL SIGN BIT MASK 

RESERVE SPACE FOR INTEGER PARAM 

RESERVE SPACE FOR CHAR PARAM 



0020 



002 1 



002A- ENTER EQU * 



0022 00 2 A CICE 

0023 002C 05C7 

0024 002E C237 

0025 0030 C3 1 3 
0032 0026' 

0026 0034 05A0 
0(1)36 0026 ■■ 



MOV 14,7 

I NOT 7 

MOV #7+, 3 

MOV »S,@INT 

INC (&1NJ 



BEGIN PROCEDURE AREA 
OBTAIN PARA BLOCK ADORES:; 
MOVE TO FIRST FARM ADDR 
R3 < — PARMl ADDR 
OBTAIN INTEGER FARM 

INCREMENT INTEGER BY 1 



a'r9 



C>(J27 0038 C:620 
003 A 0026' 
0028 003C C237 



MGV ©INT, #3 



RETURN INTEGER VALUE 



0029 


003e 


C258 


,0030 


0040 


E260 




0042 


0024- 


003 1 


0044 


C609 


0032 


0046 


C217 


0033 


0048 


CS13 




004A 


0028 


0034 


004C 


05A0 




004E 


0028 


0035 


0050 


C620 




0052 


0028 


,0036 






0037 






0038 






003'? 







0040 
0041 
0042 

0043 0054 CICE 

0044 0056 C1D7 

0045 0053 05CE 

0046 005 A 0A17 



MOV *7+,S RS < — PARM2 ADDR 

MOV *S,9 OBTAIN REAL FARM PART 1 

SDC ©RMASK,9 CHANGE SIGN BIT 

MOV 9,-iK3 RETURN REAL VALUE 

MOV #7, 3 RS <: — PARM3 ADDR 

MGV *8,eCHAR OBTAIN CHAR FARM 



INC eCHAR 



MGV @CHAR,-«-8 



INCREMENT CHAR REPRESENTATION 



RETURN CHARACTER VALUE 



* SET UP FOR RETURN TO PASCAL PROGRAM 



•«• 



* SEE DESCRIPTION OF LINKAGE CONVENTIONS 



* RECALL THAT R14 CONTAINS THE OLD PROGRAM COUNTER VALUE 



■fr 



MOV 14,7 
MOV *7 , 7 
I NOT 14 
SLA 7 , 1 



GET FARM COUNT ADDR 
GET FARM COUNT 
INCREMENT FAST COUNT WORD 
R7 = R7-H-2 



p047 005C A3S7 

0043 OC'SE 0:38C! 

0049 

•^I0 ERRORS 



A 7, 14 

RTWF 

END 



INCREMENT PAST FARMS 
RETURN TO PASCAL FROG 



lh3 



REENTRANT PASCAL 



PASCAL TASKS MAY SHARE 

- R u n t i me R o u t i n $ s 

- l.J5<5r- defined routineB 

LINKING PASCAL TASKS WHICH SHARE RUNTIME ROUTINES 

The usual method of linking Pascal programs uses a module called 
MAIN which is included as the first module in the link. The MAIN 
module is a partial link of a number of run-time routines which are 
aliLiavs needed. For linkins with separate procedure and task segments 
most of the routines in MAIN can be in the procedure segment-, but 
some need to be in the task segment. Therefore, the partial link 
module MAIN cannot be used and the routines will nave to be picked 
UP i ndi vidual 1 v. 

LINK CONTROL FILE FORMAT 

FORMAT IMAGE, REPLACE 

LIBRARY .TIP. OBJ ; P*«ca I •*.*«■.- time library 

LIBRARY <u5er librar¥> " User defined library 

PROCEDURE <procedure name> ; Procedure segment 

INCLUDE ([NIT*1) ; Includes shared run-time routines 

I NCLUDE < CREATE* ) 

INCLUDE (GET*PA) 

INCLUDE (HALT*) 

INCLUDE (DUMP*P) 

INCLUDE (RELEAS) 

INCLUDE (CLS*) 

I NCLUDE ( RESUM* ) 

INCLUDE (RSUMR*) 

INCLUDE <other shared run-time routines!?- 



INCLUDE <user defined routines'^ 



SEARCH .TIP. OBJ ; Rest of sharable run-time 

SEARCH Cuser defined 1 ibrary> 

TASK <task name> ; Beginning of TASK segment 

INCLUDE (P*MAIN) ; Must be first module in TASK segment 

ALLOCATE ; Puts COMMONS and DSEGs here 

INCLUDE CUser program> 



END 



I / // 



THE FOLLOWING ROUTINES ARE NOT 
PROCEDURE SEGMENT: 



;;HARABLE AND MUST NOT BE PUT IN THE 



DUMP*HEA 

GO* 

INIT* 

INITIO 

P*INIT 

TERM* 

IN ORDER TO BE SAFE REMEMBER THE FOLLOWING RULES: 



in 



in 



The PROCEDURE sesment of the 1 ink must 

link-edit of everv task uhich will use 

The library routine P$MAIN must be the 

TASK segment. 

The Pascal main prosram must be in the 

There must not be anv references from routines in the 

PROCEDURE segment to labels defined after the ALLOCATE 

command. 



be identical 

it. 

first module 

task segment. 



th< 
th<i 



Control files for 2 tasks which share a common run-time and 
defined procedures: 



u s e r- 



TASKl 



TASK2 



FORMAT I MAGE , REPLACE 
LIBRARY .TIP. OBJ 
L I BRARY USER . PASCAL . OBJECT 
PROCEDURE TESTPROC 
INCLUDE (INIT$1) 

< GREAT* ) 

(GET*PA) 

( HALT* ) 

( DUMP*P ) 

( RELEA3 ) 

( CLS* ) 

( RESUM* ) 

i RSUMR* ) 

( ADD ) 

(FILL) 

.TIP. OBJ 

USER . PASCAL . OBJECT 

TASK! 

<P*MAIN) 



I NCLUDE 

INCLUPE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

SEARCH 

SEARCH 

TASK 

INCLUDE 

ALLOCATE 

INCLUDE 

END 



FORMAT I MAGE , REPLACE 

LIBRARY .TIP. OBJ 

L I BRARY USER . PASCAL . OBJECT 

PROCEDURE TESTPROC 

DUMMY 

<INIT*1 ) 

( GREAT* > 

<GET*PA) 

( HALT* ) 

< DUMP*P ) 

( RELEAS ) 

(CLS*) 

( RESUM* ) 

( RSUMR* ) 

( ADD ) 

(FILL) 

.TIP. OBJ 

USER. PASCAL. OBJECT 

TASKl 

(P*MAIN) 



INC 

INC 

INC 

INC 

INC 

INi: 

INC 

INC 

INi: 

INC 

iNi: 



(TASKl) 



::LUDE 
JLUDE 
::LUDE 

::lude 
::lude 
::lude 

::LUDE 

::lude 
::lude 
::lude 
::lude 

SEARCH 

SEARCH 

TASK 

I NCLUDE 

ALLOCATE 

I NCLUDE 

END 



(TASKl ) 



■«•* The second link control file has a DUMMY command after the 
PROCEDURE command so that the procedure is not stored on the 
program file 



/ . '-- 
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DIRECT INTERFACE WITH DXIO 



Six routines for direct inter-Face with DXIO 

Allow I/O to a CRU device that is not supported bv 
t h e 5 ■•.■■ stem. 

Allou-i user to execute anv supervisor call of the operatins 
SYS tern. 

Routine must be declared externally 



- *SBO 

- *SBZ 

- SSTCR 

- $TB 
SUPERVISOR CALL ROUTINE 

- SVC* 



"/ h 



PROCEDLIF;E SLDCR ( BASE, WIDTH, VALUE: INTEGER); EXTERNAL: 
Exam pie: y a r B , W , V : Integer; 



B := #200; (•«■ set base to #200 *) 

W := 3; ( -K- Wr-ite a character •»•) 

V != #41; (■«• character is -A" •«•) 

*LDCR( B, W, V); 



PROCEDURE $SBO ( BASE : INTEGER ); EXTERNAL; 
Example; Var- ADDR : Integer; 



ADDR := #400; ( ■»• Set base to #400 * ) 
ADDR := ADDR +4; (* Add displacement *) 
*SBO( ADDR ); (# Set bit to one *) 



PROCEDURE *SB2 ( BASE : INTEGER ); EXTERNAL; 
Example: Var BITOUT : Integer; .-• 



BITOUT := #400; (* Set Base to #400 ■«•) 
BITOUT := BITOUT + 2; <* Add Displacement •»•) 
*SBZ ( BITOUT ); (* SET BIT TO ZERO *) 



PROCEDURE *STCR(BASE, WIDTH, INTEGER; VAR VALUE: INTEGER); EXTERNAL; 

Example: Const BSl = #200; 

SIZE = s; 
Var INCHR : Integer; 



*STCR( BSl, Size, INCHR ); ( -R- Read Character *) 



FUNCTION $TB ( BASE : INTEGER ): BOOLEAN; EXTERNAL; 

Example: Var ADD : Integer; 
■BUSY: Boolean; 



ADD := #200; (* Set Base to #200 «•) 

ADD := ADD + 8; ( ■«• Add Displacement *) 
BUSY := STB (ADD); ( * Set Busy to value 

Of CRU Input •«■) 



Wl 



PROCEDURE SVr:$ ( P ." PT ); EXTERNAL? 

- The structure tor the supervisor call block must be 
dec I a r e d . 

- PT represents a pointer to the supervisor call block 

Example: TYPE DANDT = ARRAY il i,.5 J OF INTEGER; 

POINT = ©DANDT; 
SCB = RECORD 

CODE : INTEGER; 

TIME : POINT 

END; 

PT = eSCB; 
VAR BLOCK : PT; 



NEW ( BLOCK ); (* Obtain supervisor call block *) 
NEW i BLOCKS. TIME );(* Obtain array for date and time*) 
BLOCKS. CODE := #0300; ( ■«• Assign code and zero #) 
SVC$ ( BLOCK ); (■«• get date and time *) 



This shoojs a date and time supervisor call 
This supervisor call requires a 4-bYte block 

first bvte = code 

2nd bvte = zero 

3rd ?< 4th = address of a five word array for the date 
and time 

All values for the date and time in the array are binary 

Element I of array (B1 ockS. TimeQII I ] ) is the year 

year is binary equivalent of the last 2 digits of year 
Element 2 is the day- 
Element 3 is the hour 
Elememt 4 is the minute 
Element 5 is the second 



MOD 2:: 



BATCH SCI 



BATCH INPUT TO SCI FROM SEQUENTIAL MEDIA 

- SEQUENTIAL FILE < TYPE CREATED BY THE TEXT EDITOR ) 

- CARD READER 

- ETC, 

EXECUTION IS IN THE BACKGROUND 



EXECUTE BATCH < XB ) COMMAND 



PURPOSE: TO PLACE A BATCH SCI COMMAND STREAM INTO EXECUTION IN 
THE BACKGROUND AT A STATION. 



FORMAT : 

LI XB 
EXECUTE BATCH 

INPUT ACCESS NAMES SEQUENTIAL MEDIA CONTAINING SCI COMMANDS 
LISTING ACCESS NAME: FILE OR DEVICE FOR LISTING BATCH COMMAND:! 

EXAMPLE: 

LI XB 
EXECUTE BATCH 

I NPUT ACCESS NAME : T I . PASCAL . BATCH , TEST 1 
LISTING ACCESS NAME: LPOl 



,9/.^ 



tiATCH2 



BATCH COHMAND STREAM 

BATCH SC E COMMAND FORMAT 

FORMAT: 

< COMMAND > Kl = < VALUE >, ... , KN = < VALUE 
WHERE , 

< COMMAND > - MNEMONIC FOR SCI COMMAND 
K 1 , ... KN - KEYWORDS 

EXAMPLE: 



CFDIR PATHNAME = TI . COBOL. SRC, 
MAX ENTRIES = LOO 



■«-«-N0TE: some ABBREVIATIONS FOR KEYWORDS ARE LEGAL. 

GENERAL RULE: USE THE FIRST LETTER OF THE KEYWORD IN THE 
ABBREVIATION. 

THE LETTERS IN THE ABBREVIATION MUST APPEAR 

IN THE SAME ORDER AS THEY APPEAR IN THE KEYWORD 

THE ABBREVIATION USED FOR A KEYWORD MUST NOT BE 
A LEGAL ABBREVIATION FOR ANOTHER KEYWORD IN THAT 
SAME SCI COMMAND. 

»* CONSULT VOLUME V OF THE DXIO MANUAL FOR THE EXACT DEFINITION 
OF THE NEAR EQUALITY ABBREVIATION ALGORITHM. 



BATCH COMMAND 



PURPOSE: TO DELETE ALL "SECRET' SCI SYNONYMS AND DEFAULT VALUES FOR 
BATCH EXECUTION. ( THIS HELPS GUARD AGAINST SYNONYM TABLE 
OVERFLOW ) 



FORMAT: 

BATCH 



**NnTE: THE -BATCH-- COMMAND SHOULD BE THE FIRST COMMAND IN EVERY 
BATCH COMMAND STREAM. 



BATCH:; 



ILLEGAL BATCH SCI COMMANDS 

ALL DEBUG AND TEXT EDITOR COMMANDS 

AT ( ACTIVATE TASK ) COMMAND 

KBT *; KILL BACKGROUND TASK ) COMMAND 

MS ( MODIFY SYNONYMS ) COMMAND 

SBS < SHOW BACKGROUND STATUS ) COMMAND 

XB ( EXECUTE BATCH > COMMAND 

XD ( INITIATE DEBUG ) COMMAND 

XGEN ( EXECUTE GEN 990 ) COMMAND 

XHT ( EXECUTE AND HALT TASK ) COMMAND 

MVI < MODIFY DISK VOLUME INFORMATION ) -COMMAND 

OTHER INTERACTIVE BATCH RELATED COMMANDS 
jHOUJ BACKGROUND STATUS ( SBS ) COMMAND 



PURPOSE: TO DISPLAY A MESSAGE WHICH DESCRIBES THE STATUS OF THE 
CURRENT BACKGROUND ACTIVITY AT THE STATION. 



FORMAT: 

LI SBS 

EXAMPLE: 

t] SBS 

SHOW BACKGROUND STATUS 

ACTIVE - PRIORITY 3 

KILL BACKGROUND TASK < KBT ) COMMAND 



PURPOSE: TO TERMINATE BACKGROUND ACTIVITY AT A STATION. 
FORMAT: 

\:i KBT 



1 .; ' / / 



U ! 



:';AMPI_E BATCH SCI CCiMMAND STRF:Ar 



* RFrlLMBrR T! iAT •BATCH- SHOUL.D BF THE F-JR3T COMMAND 
■<■ IN !-:VEF^;Y BATCH STREAM' 

F;ATr:i-| 

P Fvpi-iiTr THE F"'ASCAL. CnMF''IL.ER 

^ T I f SOI IRCE = " T T . PASCAL . SRC „ BATCH " , 

OR. JECT = " T I . PASCAL , OB. J , BATCH " , 

LISTING = "TI^ PASCAL. LST, BATCH", 

MESSAGES = '■ T I „ PASCAL , MSG , BATCH " , 

MEMl = "•', 

MEM2 = "% 

MEMS = "", 

MODE = "F OREO ROUND" 

a THERE IS A WAY IN A BATCH STREAM TO DETERMINE IF A PASCAL COMPILATON 

«• WAS SUCCESSFUL BEFORE GOING ON TO THE NEXT COMMAND IN THE STREAM, 
-a- 

* THE •■„IF- COMMAND ALLOWS FOR CONDITIONAL EXECUTION OF A SERIES OF 
^ COMMANDS, 

s- THE SYNONYM -^^CC-- WILL BE EQUAL IF THE COMPILER TERMINATED 

■<■ NORMALLY, AND A NON-ZERO VALUE INDICATES THAT THE COMPILER 

* TERMINATED ABNORMALLY. 

a- 

* THE SYNONYM ••■**CC- WILl.. BE: 

X. 

* - NO ERRORS DURING COMPILATION 

y. 

* #4000 - ONLY WARNINGS OCCURRED DURING COMPILATION 
s #6000 - NON-FATAL ERRORS OCCURRED 

» ttnooo - FATAL ERRORS OCCURRED 

s #COOO - RUNTIME ERRORS OCCURRED 

■H THUS TO CONDITIONALLY LINK THE FOL,LOWING CONTROL STREAM Cnui...n BE UILD. 

s „ IF @$$CC, EQ, 

s r LIN!::: COMMAND STREAM 1 

s ,. FNnjF 



J I r 



INKING COMMAND STREAM 









IF @4$r;r:, FQ, O i COMPII-ATTuN TrRMINATE:D NnRMI. LY 

,nATA T I. PASCAL, LC, BATCH ! PUT LINK STREAM ON FILE 
NOSYMT 
FORMAT 1 MAGE ■> REPLACE , 3 
LIBRARY ,T[P,OE.,..l 
TASK NEW 

INCLUDE (MAIN) 
I NCI.JJDE T I . PASCAL „ OBJ , B A TCH 
END 
. EOD 



EXECUTE LINK EDITOR 

XL.E CONT ACC NAME = "TI , PASCAL. LC. BATCH" , 

LINKED OUT ACC NAME = "TI . PASCAL. PROD" , 
LIST ACC NAME = "T I . PASCAL. LMAP. BATCH" , 



PRINT WIDTH = "80" 



.END IF 



•H- 

■» PRINT OUT THE COMPILED LISTING 

^ 

PF FILE PATHNAME (S) = "TI , PASCAL. LST. BATCH" • 
AF="NO", 

LISTING D="LP01", 
DAP="NO", 

NUM OF LINES /PAGE ="" 
a- 

■3- 

^- PRINT OUT MESSAGE FILE 

s- 

•s- 

PF FILE PATHNAME ( S ) = " T I ,, PASCAL , MSG . BATCH " • 

AF="NO", 

LISTING D="LP01", 

DAP="NO", 

NUM OF LINES/PAGE="" 



FNP OF BATCH STREAM - REMEMBER TO USE THE EBATCH COMMAND 
EBATCH 






Mi:iD24 
COHPILER OPTIONS 

.1ST CONTROL OPTIONS 



I ST (STATEMENT - TRUE) 



ENABLES OR DISABLES PROGRAM SOURCE LISTING 

WHEN SET TO FALSE, ONLY LINES WITH ERRORS AND FHE 

ERROR MESSAGES ARE PRINTED 



W I DEL [ST (PROGRAM - FALSE) 



- ENABLES OR DISABLES SOURCE LINE NUMBER AND COMPOUND 
STATEMENT NUMBERS 



MAP (ROUTINE - FALSE) 



- ENABLES OR DISABLES A ■MAP- OF THE VARIABLES DEFINED 
IN THE ROUTINE 



■fi-*NOTE: THIS IS USEFUL WHEN ATTEMPTING TO READ AN ERROR DUMP OR 
STACK AND HEAP MEMORY 

MAP INFORMATION 

<V NAME> DISP = <HEX VALUE> DRTC = T/F SIZE = (BYTES, BITS) 

WHERE, 

<:V NAME> - VARIABLE NAME 

<HEX VALUE> - DISPLACEMENT (IN HEX BYTES) INTO THE ROUTINES STACK 
FRAME WHERE THAT VARIABLES STORAGE MAY BE FOUND 

T - VALUE IS ACTUAL IN THE STACK AS DEFINED BY -DISp- 

F - VALUE IN STACK IS A PO ENTER TO THE ACTUAL LOCATION 
WHERE THE VARIABLE IS STORED 

BYTES - SIZE OF VARCABLE IN FULL BYTES 

BITS - NUMBER OF BITS OVER THE FULL NUMBER OF BYTES REQUIRED 
FOR VARIABLE STORAGE. 



■«■■»■ NOTE: TOTAL NUMBER OF BITS OF MEMORY REQUIRED BY A VARIABLE CAN 
BE C A L C: U L A T ED A S : 

SIZE (INBITS) = y^BYTES + B-ITS 



cy 



PAGE (STATEMENT - FALSE) 



- FORM FEED COMPILED LISTING DEVICE IF TRUE 

- PAGE BECOMES FALSE AFTER FORM FEED IS WRITTEN 



WARNINGS (STATEMENT - TRUE) 



ENABLES OR DISABLES LISTING OF WARNING MESSAGES FROM 
COMPILER 



OBJECT CONTROL OPTIONS 



NULLBODY (ROUTINE - FALSE) 

- WHEN TRUE ONLY DUMMY OBJECT IS WRITTEN FOR ROUTINE 

- USEFUL WHEN COMPILING EXTERNAL ROUTINES 

TRACEBACK (ROUTINE - TRUE) 



ENABLES OR DISABLES GENERATION OR TRACEBACK DATA IN THE 
OBJECT CODE TO ALLOW TRACING OF EVENTS WHICH LED TO TERMIN- 
ATION IN A PROGRAM. 



ASSERTS (STATEMENT - TRUE) 



ENABLES OR DISABLES RECOGNITION OF ASSERT STATEMENTS IN A 
PROGRAM 



ASSERT STATEMENT 



PURPOSE: TO GENERATE A RUNTIME ERROR IF A SPECIFIED 
BOOLEAN CONDITION IS FALSE. 

SYNTAX : 

ASSERT <BOOLEAN EXPRESS I 0N> 

SYMANTICS: 

- IF <B00LEAN EXPRESSION> IS TRUE, THEN CONTINUE EXECUTION 
OF PROGRAM 

- IF CBOOLEAN EXPRESSIONS- IS FALSE, THEN GENERATE A RUNTIME 
ERFilOR . 



i--- 
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RUNTIME CHECK OPTIONS 

CK INDEX (STATEMENT - FALSE) 

- ENABLES OF; DISABLES CHECKING FOR ARRAY 
CKOVER (STATEMENT - FALSE) 



ENABLES OR DISABLES CHECKING OVERFLOW WHEN EVALUATING, 
INTEGER, LONG [NT, DECIMAL, AND FIXED EXPRESSIONS. 



CKPREC (STATEMENT - FALSE) 



ENABLES OR DISABLES CHECKING FOR l_OSS OF MOST SIGNIFICANT 
PREC[SION DURING CONVERSION OF DECIMAL AND FIXED TYPES. 



CKPTR (STATEMENT - FALSE) 



- ENABLES OR DISABLES CHECKING FOR NIL VALUES OF VARIABLES 
OF POINTER TYPE AT EXECUTION TIME„ 



CKSET (STATEMENT - FALSE) 



ENABLES OR DISABLES CHECKING OF SET ELEMENT EXPRESSIONS 



CKSUB (STATEMENT - FALSE) 



ENABLES OR DISABLES THE CHECKING OF SUBRANGE ASSIGNMENTS AND 
RESULTS OF PRED AND SUCC FUNCr[ONS. 



CKTAG (STATEMENT - FALSE) 



ENABLES OR DISABLES THE CHECKING OF THE TAG FIELDS OF RECORD 
VARIANTS. 



!(■ 



PROBER (ROUTINE - FALSE) 



ENABLES OR DISABLES A SUMMARY OF THE NUMBER OF TIMES A ROUTINE 
IS EXECUTED DURINO A PROGRAM EXECUTION 

THE FOLLOWING LINK CONTROL COMMANDS MUST BE USED TO ENABLE USE 
OF THIS OPTION: 



INCLUDE (PRB*INIT) 
INCLUDE (PRB*TERM) 
INCLUDE (PRBiPERF) 



EXAMPLE PROBER DISPLAY 

PERFORMANCE PROBE DATA 

ROUTINE DATA NUMBER OF EXECUTION:; 

CCHAR 1 

CI NT 5 

DIG 10 1 

PROBES (ROUTINE - FALSE) 



ENABLES OR DISABLES PRINTING OF SUMMARY OF THE USAGE OF THE 
PATHS OF EACH OCCURENCE OF THE FOLLOWING PROGRAM CONTROL 
STATEMENTS: 

CASE 

FOR 

IF 

REPEAT 

WHILE 

THE FOLLOWING LINK CONTROL COMMAND MUST BE INCLUDED IF THE 
PROBES OPTION IS USED 

INCLUDE (PRB*INIT) NOTE 1 
INCLUDE (PRB«TERM) NOTE 1 
INCLUDE (PRB*COMP) 



#N0TE1 - THESE TWO ARE THE SAME AS FOR PROBER AND ONLY NEED TO BE 
INCLUDED ONCE IF BOTH PROBER AND PROBES OPTIONS ARE USED. 



■J-in 



EXAMPLE F-'ROBES DISPLAY 

COMPLETENESS PROBE DATA 

ROUTINE NAME #PROBES XACTIVATED INACTIVE PROBE 

CCHAR 4 75 3 

C ] NT 2 1 00 

D [ 1 2 1 00 

TOTAL NUMBER OF PROBES = S 

TOTAL NUMBER OF ACTIVATED PROBES = 7 

% OF PROBES ACTIVATED = S7 



72C0L (STATEMENT - TRUE) 



ENABLES OR DISABLES THE 72 CHARACTER LIMIT FOR SOURCE PROGRAM 
L I NE3 . 



FORINDEX (STATEMENT - FALSE) 



ENABLES OR DISABLES THE ISSUING OF WARNING MESSAGES WHEN NAME:; 
OF FOR CONTROL VARIABLES ARE IDENTICAL TO NAMES OF OTHER 
ACCESS I BLE VAR I ABLES . 



GLOBAL (ROUTINE - FALSE) 



- ENABLES OR DISABLES A LIMITATION OF THE USE OF GLOBAL 
VARIABLES. 

WHEN OPTION IS TRUE, ONLY GLOBAL VARIABLES NAMES IN AN ACC£:; 
DECLARATION ARE ACCESSIBLE WITHIN A ROUTINE. 



ROUND (STATEMENT - TRUE) 



ENABLES OR DISABLES THE ROUNDING OF RESULTS OF TYPE DECIMAL. 



STANDARD (PROGRAM - FALSE) 



ENABLES OR DISABLES UNIFORM IMPLEMENTATION OF STANDARD TYPES. 



SETTING THE STANDARD OPTION TO TRUE RESULTS IN RANGE OF VALUE:; 
OF INTEGER TYPE BEING THE SAME AS THAT OF LONG J NT lYPE. 
-2, 147, 483, 64S THROUGH +2, 147, 4S3, 647. 
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PASCAL PRETTY PRINTING STANDARD 

1- Each statement must begin on a separate line. 

2. Each line shall be less than or equal to 7'2 characters, 

3. Comments that are appended at the end of a line of code and 
that are continued on successive lines must be written so 
that continued lines are under the initial comment fragment 

4. The keywords REPEAT, BEGIN, END, and RECORD must stand on a 
line bv themselves (except for supportive comments) 

5. At least one blank line must appear before LABEL, CONST, 
TYPE, and VAR declarations; at least three blank lines 
must appear before PROCEDURE and FUNCTION declarations, 

6. At least one space must appear before and after •:=■■ 
and ■■' = •■■. One space must appear after ■■:•■■. 

ALIGNMENT RULES 



1. PROGRAM, PROCEDURE, and FUNCTION headinss begin at the 
left margin. 

2. The BEGIN-END block for a program, procedure or function 
shall be lined up with the corresponding heading. 

3. Each statement within a BEGIN-END, REPEAT-UNTIL, or 
CASE statement must be aligned. 

INDENTATION RULES 



1. The bodies of LABEL, CONST, TYPE, and VAR declarations must 
be indented from the beginning of the corresponding header 
keywords. 

2. The bodies of BEGIN-END, FOR, REPEAT, WHILE, WITH, AND CASE 
statements, as well as the bovies of RECORD-END structures, 
must be indented from their corresponding header keywords. 

3. An IF-THEN-ELSE statement must be displayed as follows: 

IF ■Cexpres.5ion> or IF <expre5 5ion> THEN 
THEN <statement> 

<statement> ELSE 

E L S E C statement I> 

•Cs tatement> 
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COMVr M'TING DECIMAL NUMBERS TO HKXADEC IHAL NUMBEiK 



:;i...i-'1: CijNVERT TI-IE MiJnDEI-'; 7'32„ O 3:1,2 "^ IN TO A HEXAijECtMriL,. NUMB [;::!";: 



Ti 
T' 



J i rrifvAE !--Ai''T Of- Ti IE NUMBEF^ MUST BE '"■Oh VERTED OEPARATEL.Y ERuM 



F' :. I V O T . C N S 1: D 1;: R T i ■ ! IE I N T' E G R A L F-' A R T 1 • ■ T t I E IM U M B E R „ N E I i'T 7 3 2 
INTO A HEX NUMBER, 

•VTEP i: DIVIDE TNE NUMBER BY 16. THE REMA INBEr;: IG Ti ;E N!::XT 
DIGIT OTmRTINO to TI-iE LEFT OR THE DECIMAL POU'T. 
REMEMBEi-^ THAT IE THE REMAINnER IS l'', II. 12, D:- 14, 
OR 15, YOU MUST WRITE THE HEX DIOfT A. B, C^ lo E, OR E, 

732/16 = 40 R 12 

THE REMAINDER 12 CAN BE REPRESENTED BY THE HEXADECIMAL 
DIGIT -C-,. THE EIRST DIGIT OF THE NiirlBER HE ARE LOOKINi-i 



FONTINOE D! VI DING TI-IE OOOTIENT BY D:. I. 

' F; /■ E R „ f; a I : H i" i u e y i j i j d i ■-! i u p b y [ i. , 

WILL- r;F; the next digit of 'TilE NUMF!ER 12,: A^-E FiO.iICING E'JI- 



Yl'. Ti^;'- 01 Jivr I E!-JT 
IE REF-^HNDER 



-o / 1.6 == 2 R 13 

'H-IE PEMAINFE-R 13 MAY BE REPRESENTED BY Ti IE Fii; XAi' lECIi-IAL 

DIG IT ■ D- . D BECOMES THE NEXT DIGiCr iJF OCR M'iMuER. 

---:> D C. 



; / 1 ,', - R 2 

■ BI.JJOilES IHE NEXT DiiOii' CI' OFiR NOi'irF:JF., ■;:. MMi'- I i HI I'OriVIEF 

<F 01 jR LAST DlVI:V[Oi"J N,:,:;; ZERO, WE AIF£ THlOJiJini., fi O- 

NTEORAL PORTION QP OOR HEXALjEDINAI., hi' iNr3.::.R I:. F'liC,. 



.A.rV 



M !J W i: !M : ■;. I ri E R 'T I ■' E D E C: IMA L F R T 1 M F T !■ -IE NUMB E R . C i j M V E R T . 3 125 T' ij 



: MUI...TIF1.Y TME IMUNBER BY 16. THE DIG 17 Hj T! iE LEFT 0\ 
THE IJECIMAL POINT WILL BE THE NEXT DIGir OF OUR NEW 
NUi'lBER. REMEMBER IF TOE NOMBER TO T! IE LEFT OF' TME 
D F 1 M A L 1 3 1 C) , j i , 1 2 7 1 '3 , 14, R 15, Y i J : ■: T W R T J" IE 
THE HEXADEOIMAL DIGIT A, B^ C, D, E^ UR L, 
OONTINOE MOLT I PLYING BY 16 OMTIL TOE DECIMAL PORTION 
THE MOMBER IS ZERO, 



03125 
16 



■i'.)i )(!( 1 



THERE IS MO DIGir 10 THE LEFT OF THE 
DECIMAL SO OCR FIRSf DIOII" IS O', 
OOR MOMBER SO FAR IS .0 



■ buooo 


16 


S, DO (■■!(') 



THE MOMBER TU THE L.EFT 0!- TOE DI.;:CIMAL 
POINT IS 3. THE NEXT DIGiT OF OOR 
MOMBER IS 3. I HE NOML;i::.R IS MsW .OS 



SINCE TME DECIMAL Rf 
TO THE LAST MOLT I PL I 
ARE THROOGH„ THO: 



jRrii.'N Of- THE AN:-.;iWEF 
CATION r.. Zl.RU, WL 



.03125 = .08 

1 1 6 

■■OTTING BOTH HALVES UF THE MOMBER TOGETHER WE !-iAVE 

732.03125 - 2 DC, 03 

J 1 6 









